Module Module1
    Public Declare Function GetKeyState Lib "user32" ( _
     ByVal nVirtKey As Long) As Integer
    Private Declare Sub keybd_event Lib "user32" ( _
    ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)
 
    Sub Main()
        If Not (GetKeyState(&H90) = 1) Then
            keybd_event(&H90, 1, 0, 0)
            keybd_event(&H90, 1, &H2, 0)
        End If
    End Sub
 
End Module