Private Declare Function GetKeyboardLayoutName Lib "user32" _
Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
'http://sharig.webzone.ru/global/stat/keyboard.htm#раскладка%20клавиатуры
'...
Private Sub txtImage_KeyDown(KeyCode As Integer, Shift As Integer)
If txtImage.Visible = False Then Exit Sub   'в момент инициализации формы
'Проверка раскладки клавиатуры:
'Номер      409 - английская,   419 - русская;      422 - украинская
'Цвета:   &H00C0C0FF& розовый  &H80000005& белый   &H0080FFFF&    жовтий
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 = "Что ищем?"
        Case  422 : txtImage.BackColor = &H80FFFF: frmPattern = "Що шукаємо?"
        Case Else
                  txtImage.BackColor = &H80000008
        lblComment = "Unable to locate Russian Keyboard!!!"
   End Select
End If
'...
End Sub