Всплывающее меню

Const MF_CHECKED = &H8&
Const MF_APPEND = &H100&
Const TPM_LEFTALIGN = &H0&
Const MF_DISABLED = &H2&
Const MF_GRAYED = &H1&
Const MF_SEPARATOR = &H800&
Const MF_STRING = &H0&
Private Type PointAPI
    X As Long
    Y As Long
End Type
Private Declare Function CreatePopupMenu Lib "user32" () As Long
Private Declare Function TrackPopupMenu Lib "user32" _
            (ByVal hMenu As Long, _
            ByVal wFlags As Long, _
            ByVal X As Long, _
            ByVal Y As Long, _
            ByVal nReserved As Long, _
            ByVal hwnd As Long, _
            ByVal lprc As Any) As Long
Private Declare Function GetSystemMenu Lib "user32" _
            (ByVal hwnd As Long, _
            ByVal bRevert As Long) As Long
Private Declare Function AppendMenu Lib "user32" _
            Alias "AppendMenuA" _
            (ByVal hMenu As Long, _
            ByVal wFlags As Long, _
            ByVal wIDNewItem As Long, _
            ByVal lpNewItem As Any) As Long
Private Declare Function DestroyMenu Lib "user32" _
            (ByVal hMenu As Long) As Long
Private Declare Function GetCursorPos Lib "user32" _
            (lpPoint As PointAPI) As Long
Private Declare Function GetActiveWindow Lib "user32" () As Boolean
Dim hMenu As Long
Private Sub Form_Load()
    'Создаём пустое меню
    hMenu = CreatePopupMenu()
    'Добавляем пункты в меню
    AppendMenu hMenu, MF_STRING, 1001, "Fuck you !"
    AppendMenu hMenu, MF_STRING, 1002, "Fuck you !"
    AppendMenu hMenu, MF_STRING, 1003, "Fuck you !"
    AppendMenu hMenu, MF_SEPARATOR, ByVal 0&, ByVal 0&
    AppendMenu hMenu, MF_STRING, 1004, "Fuck you !"
    'AppendMenu hMenu, MF_GRAYED Or MF_DISABLED, ByVal 0&, "Test"
    'AppendMenu hMenu, MF_CHECKED, ByVal 0&, "TrackPopupMenu"
End Sub
Private Sub Form_Unload(Cancel As Integer)
    DestroyMenu hMenu
End Sub
Private Sub UserForm_Activate()
    Form_Load
End Sub
Private Sub UserForm_Deactivate()
    Form_Unload
End Sub
Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim Pt As PointAPI
    Dim sMenu As Long
    'Получаем позицию курсора мыши
    GetCursorPos Pt
    'Показываем меню
   If Button = 2 Then
    sMenu = TrackPopupMenu(hMenu, 256, Pt.X, Pt.Y, _
            0, GetActiveWindow(), ByVal 0&)
    Select Case sMenu
        Case 1001
            MsgBox ("Fuck you 1 раз")
        Case 1002
            MsgBox ("Fuck you 2 раза")
        Case 1003
            MsgBox ("Fuck you 3 раза")
        Case 1004
            MsgBox ("Fuck you через сепаратор")
        End Select
    End If
End Sub