Posted on October 15, 2011
1
2
3
4
5
6
7
8
| 'Forms - How to show a popup menu when the key beside the Windows key on the right side of a typical extended keyboard is pressed.
Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 93 Then
' The system pop-up menu key has been pressed.
' Show a pop-up menu near the list box's center.
PopupMenu mnuListPopup, , List1.Left + List1.Width / 2, List1.Top + List1.Height / 2
End If
End Sub |