Option Explicit
Private Declare Function GetKeyboardLayoutName Lib  "user32"  _
Alias  "GetKeyboardLayoutNameA"  (ByVal pwszKLID As String) As Long
'http://sharig.webzone.ru/global/stat/keyboard.htm#раскладка%20клавиатуры
Private Declare Function ActivateKeyboardLayout Lib "user32" _
                        (ByVal HKL As Long, ByVal flags As Long) As Long
Private Const HKL_PREV As Long = 0
' --------------------------------------------
 

Private Function GetFlowKbd() As Long
'Интерфейс VB-->API:
'возвращает код текущей раскладки в том виде,
'который можно наблюдать в RegEdit, ветвь
'HKLM\System\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes
    Dim KeybLayoutName As String
     KeybLayoutName = String( 9 ,  0 )
     GetKeyboardLayoutName KeybLayoutName
     GetFlowKbd = CLng(Trim(KeybLayoutName))
End Function

'-------------------------------------------
Private Sub SetRusKbd()
'вызывается из обработчика событиия Form_Activate.
'Перебирает предопределённые раскладки и устанавливает RU:
Dim i As Long
For i = 1 To 10         'скорректировать, исходя из реалий.
    If GetFlowKbd() =  419  Then Exit Sub
    ActivateKeyboardLayout HKL_PREV,  0   'cледующая...
Next i
    lblComment = "Unable to locate Russian Keyboard!!!"
End Sub
' -------------------------------------------
 

Private Sub txtImage_KeyDown(KeyCode As Integer, Shift As Integer)
If txtImage.Visible = False Then Exit Sub   'в момент инициализации формы
'Проверка раскладки клавиатуры:
'Номер      409 - английская,   419 - русская;      422 - украинская
'Цвета:   &H00C0C0FF& розовый  &H80000005& белый   &H0080FFFF&    жовтий
'frmPattern - контрол Frame, текст рамки изменяем в зависимости от тек.раскл.
Dim KeybLayoutName As String
KeybLayoutName = String(9, 0)
GetKeyboardLayoutName KeybLayoutName
Dim s As String, L As Long
s = Trim(KeybLayoutName)
If IsNumeric(s) Then
    Select Case CLng(s)
        Case 409: txtImage.BackColor = &HC0C0FF: frmPattern = "What find?"
        Case 419: txtImage.BackColor = &H80000005: frmPattern = patCaptStd
        Case 422: txtImage.BackColor = &H80FFFF: frmPattern = "Що шукаємо?"
        Case Else
                  txtImage.BackColor = &H80000008
        lblComment = "Unable to locate Russian Keyboard!!!"
   End Select
End If
'Основная обработка нажатий клавиш в окне ввода образца поиска:
' ...............
End Sub


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Определение нажатия клавиши и выбор метода его обработки:
'...........................

'формирование  "горячих"  клавиш в зависимости от текущей раскладки клавы:
Select Case GetFlowKbd()
    Case  419 ,  422 
                btnAttr.Caption = IIf(rowAttr.Editable, btnOK_RU, btnAttrRU)
                optCreate.Caption = optCreateRU
                optEdit.Caption = optEditRU
    Case Else
                btnAttr.Caption = IIf(rowAttr.Editable, btnOK_EN, btnAttrEN)
                optCreate.Caption = optCreateEN
                optEdit.Caption = optEditEN
End Select
End Sub