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