Переключение раскладки клавиатуры

Прислал: Александр Коротков norma@mgn.ru

Declare Function LoadKeyboardLayout Lib "user32" Alias _

"LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

' Переключение на английскую раскладку

Function KBDToENG()

Call LoadKeyboardLayout("00000409", &H1)

End Function

' Переключение на русскую раскладку

Function KBDToRUS()

Call LoadKeyboardLayout("00000419", &H1)

End Function