Private Sub Command1_Click()
Const MENU_KEYCODE = 91
' Tryck på knappen för att öppna menyn
keybd_event MENU_KEYCODE, 0, 0, 0
DoEvents
' Släpper knappen igen
keybd_event MENU_KEYCODE, 0, KEYEVENTF_KEYUP, 0
DoEvents
End Sub