Как переключить раскладку клавиатуры 

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

' Переключаем на русский
ActivateKeyboardLayout 68748313, 0
' Переключаем на английский
ActivateKeyboardLayout 67699721, 0
Hosted by uCoz