Private Declare Function GetKeyboardState Lib "user32" ( _
                 pbKeyState As Byte) As Long
 
Const vk_Menu = &H41
 
Private Sub Timer1_Timer()
    Dim tast(256) As Byte
    Call GetKeyboardState(tast(0))
    Me.Cls
    Print (tast(&H41))
    Print (tast(&H51))
    Print (tast(&H26))
    Print (tast(&H28))
End Sub