Для переключения раскладки клавиатуры программно служит API-функция ActivateKeyboardLayout. Она декларируется так:

Declare Function ActivateKeyboardLayout Lib "user32" _
 (ByVal HKL As Long, ByVal flags As Long) As Long

Создайте модуль basKeyboardLayout. Он может быть впоследствии подключен к любому проекту, где потребуется программное переключение раскладки клавиатуры. Добавьте в него API-декларацию и две константы, идентифицирующие русскую и английскую раскладки:

Const Ru_RU As Long = &H4190419
Const En_US As Long = &H4090409

Создайте в модуле две Public-процедуры, инкапсулирующие вызов функции API:

Public Sub RussianKeyboard()
    ActivateKeyboardLayout Ru_RU, 0
End Sub 'RussianKeyboard


Public Sub EnglishKeyboard()
    ActivateKeyboardLayout En_US, 0
End Sub 'EnglishKeyboard

Примечание: Этот код будет работать только на русскоязычной версии Windows.

Автор - Цзяофань