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


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


' ============================================================
' Назначение:
'           Включить выбранную раскладку клавы
' Аргументы:
'           Требуемая раскладка
' Пример:   SetLayout kbrdEnglish
' ============================================================
Public Sub SetLayout(ByVal myLayout As enmKeybordLayout)
Dim lngReturn As Long
Dim lngCodeKeybord As Long

    ' Получить текущую раскладку
    lngReturn = GetKeyboardLayout(lngCodeKeybord)
     'Если раскладки не совпадают, значит, надо переключиться
    If lngReturn <> CLng(myLayout) Then 
        Call ActivateKeyboardLayout(HKL_NEXT, KLF_REORDER)        
    End If

End Sub


public sub main()
    ' Установить английскую раскладку
    SetLayout kbrdEnglish
end sum