'指定された仮想キーの状態を取得。
'状態とは、キーが押されているか、押されていないか、トグルになっているかどうか( オンとオフの 2 つがあり、キーを押すたびに入れ替わります)を表す。
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey
As Long) As Integer
'コマンドボタンクリックイベント
Private Sub コマンド0_Click()
Dim nKey As Integer
nKey = GetKeyState(&H90)
'数字入力ロックキーを調べ、結果をフォームタイトルに表示
If nKey And 1 Then
Me.Caption = "Num
Lock : On"
Else
Me.Caption = "Num
Lock : Off"
End If
nKey = GetKeyState(&H14)
'大文字、小文字ロックキーを調べ、結果をフォームタイトルに表示
If nKey And 1 Then
Me.Caption = Me.Caption
& " Caps Lock : On"
Else
Me.Caption = Me.Caption
& " Caps Lock : Off"
End If
End Sub