Posted on January 4, 2009
1
2
3
4
5
6
7
| 'Forms - How to show a popup menu
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And vbRightButton Then
' User right-clicked the list box.
PopupMenu mnuListPopup
End If
End Sub |