Postup: V deklarační části formuláře deklarujte: Private Declare Function
ActivateKeyboardLayout Lib "user32" _
(ByVal HKL As Long, ByVal flags As Long) As Long
Na
formulář přidejte tlačítko a na jeho událost Click zapište:
ActivateKeyboardLayout 0, 0