Getting .Top & .Left properties of self

[Eras3r]

Ok, In my code of my activex control, I want to be able to get the .Left & .Top properties of itself on the form.

Like say in the UserControl_Initialize() method.....

Private Sub UserControl_Initialize()
    Dim nTop as Integer, nLeft as Integer

    nTop = Me.Top
    nLeft = Me.Left
End Sub

.... except Top & Left properties dont exist.... So how do I get the top and left props? :/

[Eras3r]

Ok, solved....

    Dim wndpl As WINDOWPLACEMENT
    GetWindowPlacement UserControl.hwnd, wndpl

[brucevde]

The Left and Top (and many other) properties of a UserControl are available through the Extender property. The Extender object handles the properties of a control that are managed by it's container.

The Extender properties are not available until the control has been sited (ie cannot be used in the Initialize event).

Private Sub UserControl_Show()
Dim nTop as Integer, nLeft as Integer

nTop = UserControl.Extender.Top
nLeft = UserControl.Extender.Left
End Sub

[Eras3r]

ahh... Thanks a bunch!