PopupMenu.Command Property (ExPopupMenu)

Use the Command property to get information about the selected item.

The following sample displays the caption of the selected item:

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If (Button = 2) Then
        Dim nID As Long
        nID = PopupMenu1.ShowAtCursor
        If (nID > 0) Then
            MsgBox "You have selected the '" & PopupMenu1.Command(nID).Caption & "'"
        End If
    End If
End Sub

		Type	Description
		ID as Long	A long expression that indicates the command's identifier.
		Command	A Command object that points to an menu item.