Code:
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Function TasterCP()
Dim K_V As Boolean
K_V = GetKeyState(20)
If K_V = True Then
MsgBox "Caps Lock Uključen"
Else
MsgBox "Nije uključen Caps Lock "
End If
End Function
zxz