Option Compare Database
Option Explicit

Public Const vKF1 = &H70
Public Const KEYEVENTF_KEYDOWN = &H0
Public Const KEYEVENTF_KEYUP = &H2
Public Const HKL_NEXT As Long =  1 
Public Const HKL_PREV As Long =  0 

Public Enum enmKeybordLayout    ' Раскладки клавиатуры
    kbrdEnglish =  67699721 
    kbrdRussian =  68748313 
End Enum

' Пример:          keybd_event vKF1, 0, KEYEVENTF_KEYUP, 0
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Integer, ByVal bScan As Integer, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
Public Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Public Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long


' Пример:  SetLayout kbrdEnglish
Public Sub SetLayout(ByVal myLayout As enmKeybordLayout)    ' Включить выбранную раскладку клавы
    On Error Resume Next
    Dim lngReturn As Long
    Dim lngCodeKeybord As Long
    lngReturn = GetKeyboardLayout(lngCodeKeybord)   'Получить текущую раскладку
    If lngReturn <> CLng(myLayout) Then             'Если раскладки не совпадают, значит, надо переключиться
        Call ActivateKeyboardLayout(HKL_NEXT,  0 )
    End If
End Sub
' Rus=LoadKeyboardLayout("00000419",0);
' Lat=LoadKeyboardLayout("00000409",0);
' ActivateKeyboardLayout(Rus,0);