GetCursorPos API problem

[Chris]

I just write the following code in the Treeview_MouseDown event:


Dim Px As Long
Dim Py As Long
If Button = vbRightButton Then
GetCursorPos pt
Px = ScaleX(pt.x, vbPixels, vbTwips)
Py = ScaleY(pt.y, vbPixels, vbTwips) - 250

PopupMenu mnuOPTION, vbPopupMenuLeftAlign, Px, Py
End If


When my form in Maximized mode, everything is fine, PopUpmenu just beside my mouse pointer. But if I resize my form then the problem come out and I can not set the PopUpmenu right beside my mouse pointer.

It is something wrong with my code? Does anyone have a better solution for the PopUpMenu?

Thanks,
Chris.C

[bbosh]

If you want the popup right beside the mouse, just use

' Creates a popup at the current cursor co-ords.
me.popupmenu mnuOPTIONS

You only need to specify more if you don't want to have the popup at the current location.
If you really want to specialize

Dim Px As Long
Dim Py As Long
If Button = vbRightButton Then
GetCursorPos pt
Px = ScaleX(pt.x, vbPixels, vbTwips)
Py = ScaleY(pt.y, vbPixels, vbTwips) - 250
Px = Px + Me.Left
Py = Py + Me.Top

PopupMenu mnuOPTION, 2, Px, Py
End If