Private Sub Command1_Click()
Const MENU_KEYCODE = 91

    ' Press the button.
    keybd_event MENU_KEYCODE, 0, 0, 0
    DoEvents

    ' Release the button.
    keybd_event MENU_KEYCODE, 0, KEYEVENTF_KEYUP, 0
    DoEvents
End Sub