VB در CapsLock چک کردن وضعیت

.بگذارید Command1 یک کامند روی فرم بگذارید و نامش را

. هم همینطور Label1

Option Explicit
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Dim capsStat As Long
Private Sub Command1_Click()
getCapsStatus
End Sub
Private Sub getCapsStatus()
Dim TmpTmp = GetKeyState(vbKeyCapital)
If Tmp = 1 Then
capsStat = 1
Label1.Caption = "CAPSLOG ON"
Else
capsStat = 2
Label1.Caption = "CAPSLOG OFF"
End If
End Sub

نظر؟