[RESOLVED] window position

[Vbstr]

I want to popup a window at the users mouse cursor thats over a control window, only that x/y position of that control isn't accurate by itself,and when the form is changed that position is the same which throws things off,so how can I get it relative to the entire desktop so I have an accurate position?

[RhinoBull]

If I understood you correctly GetCursorPos api function should do the trick:

Option Explicit

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Sub Form_Click()
Dim pt As POINTAPI

    GetCursorPos pt
    Load Form2
    Form2.Move pt.X * Screen.TwipsPerPixelX, pt.Y * Screen.TwipsPerPixelY
    Form2.Show

End Sub

[Vbstr]

thankyou kind sir, that did the trick