'================================================================
'= 現在のキーの状態を調べる
'=    (GetKeyState2.bas)
'================================================================
#include "Windows.bi"

' 現在のキーの状態を調べる 
Declare Function Api_GetKeyState& Lib "user32" Alias "GetKeyState" (ByVal nVirtKey&)

#define vbKeyCapital 20                 'CapsLockキー
#define vbKeyNumlock 144                'NumLockキー

Var Shared Text(3) As Object
For i = 0 To 3
    Text(i).Attach GetDlgItem("Text" & Trim$(Str$(i + 1)))
    Text(i).SetFontSize 14
Next

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    If Api_GetKeyState(vbKeyCapital) = 1 Then
        Text(2).SetWindowText "ON"
    Else
        Text(2).SetWindowText "OFF"
    End If

    If Api_GetKeyState(vbKeyNumlock) = 1 Then
        Text(3).SetWindowText "ON"
    Else
        Text(3).SetWindowText "OFF"
    End If
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End