...
Public Event Clicked(ID as MenuIdent)
...

Public Function ShowPopup(ID as MenuIdent, intX as Integer, intY as Integer, _
                          Optional ExtraOptions as MenuOpts) as Long
' рисует контекстное "right-click" меню и ждет действий пользователя

    Dim lSelection as Long
    Dim SubItemID as MenuIdent

    Call DrawMenuBox(...)  ' здесь рисуем
    While Not lSelection
    ' цикл ожидания: в нем следим за мышкой и клавой
        ...
        ...
        ' предположим, что была выбрана опция в меню
        RaiseEvent Clicked(SubItemID)
        ...
    Wend

    ShowPopup = lSelection

End Function

...

...
Private WithEvents objContextMenu as IvanMenu
...

Private Sub Form_MouseUp(Button as Integer, Shift as Integer, X as Single, Y as Single)
' пользователь кликнул мышкой по самой форме

    If Button = vbRightButton Then
        objContextMenu.ShowPopup objContextMenu.MyID, X, Y +  15 
    End If

End Sub

Private Sub objContextMenu_Clicked(ID as MenuIdent)
' а здесь мы обрабатываем выбор опции из менюшки
' пишем любой код, который нам нужен, а "рамочку" самой функции (имя, параметры)
' вставляем выбором objContextMenu из списка Object над окошком кода (левый список)
' и выбором события Clicked из списка Procedure над окошком кода (правый список)

    Select Case ID
    Case mnuLaunch
       ...
    Case mnuExitProgram
       ...
    End Select

End Sub

...