_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then LoadPopMenu X, Y

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function MoveWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINT_TYPE) As Long
Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hWnd As Long, lpRect As Rect) As Long

Private Type POINT_TYPE
x As Long
y As Long
End Type

Private Type Rect
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type


Function LoadPopMenu(X As Single, Y As Single)
    Load Menu
    
    Dim coord As POINT_TYPE ' координаты курсора
    Dim retval As Long ' возвращаемое значение
    Dim r As Rect ' размеры окна
    retval = GetCursorPos(coord) ' считываем позицию курсора
    retval = GetWindowRect(Menu.hWnd, r) ' считываем размеры текущего окна
    retval = MoveWindow(Menu.hWnd, coord.x, coord.y, r.Right - r.Left, r.Bottom - r.Top, 1)
           
    Menu.Show

End Function

Private Sub Form_Deactivate()
Unload Me
End Sub