activatekeyboardlayout

Ответ от Create Thread[мастер]
LOL, у меня всё работает.
Попробуйте вместо кода формы вставить следующее и кинуть на неё две кнопки Command1 и Command2.
Может, вы кавычки пишете одинарные вместо двойных там, где "user32"?
Option Explicit
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Private Sub Command1_Click()
Call ActivateKeyboardLayout(67699721, 0)
End Sub
Private Sub Command2_Click()
Call ActivateKeyboardLayout(68748313, 0)
End Sub
Create Thread
Профи
(940)
В (Declarations).
Я же говорю, сделайте две кнопки Command1 и Command2 и вставьте это вместо кода формы и увидите, где и что должно стоять.