Как получить из кода контрола доступ к свойствам Left, Top, Visible

Чтобы получить доступ к свойствам и методам контрола, доступным только из родительской формы, нужно найти индекс этого контрола на форме

Dim Ind As Long
Ind = 1
' Для каждого контрола в родительской форме
For Each Control In Parent.Controls
' Если контрол соответствует нашему контролу, то выходим из цикла
If Control.Name = Ambient.DisplayName Then Exit For
Ind = Ind + 1
Next
' Переносим контрол в левый верхний угол
ParentControls(Ind).Left = 0
ParentControls(Ind).Top = 0