Определение регистра в VB6

Формулировка задачи:

Приветствую! Подскажите пожалуйста как определить регистр активного окна (процесса)? Иначе говоря - активен ли CapsLock или нет (учитывая то, что программа была запущена после того, как был включен капслок, то есть перехват нажатия капслока не вариант). Спасибо.

Решение задачи: «Определение регистра в VB6»

textual
                            Листинг программы 
                        

                            Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Const VK_CAPITAL = &H14
Private Sub Command1_Click()
If GetKeyState(VK_CAPITAL) Then
MsgBox " Caps Включен"
Else
MsgBox " Caps Выключен"
End If
 
End Sub
                        