Программное изменение языка ввода по умолчанию

Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Dim xx, yy As Long
Dim ind1 As Byte
Private Sub Form_Load()
yy = GetKeyboardLayout(0&) ''Ñîõðàíèòü òåêóùèé ÿçûê
xx = ActivateKeyboardLayout(1, 1)
Do While Right(Str(xx), 2) <> "13" ''Hebrew
xx = ActivateKeyboardLayout(1, 1)
Loop
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
Do While True ''Âîññòàíîâèòü òåêóùèé ÿçûê
xx = ActivateKeyboardLayout(1, 1)
If Right(Str(xx), 2) <> Right(Str(yy), 2) Then
Exit Do
End If
Loop
End Sub
 
Private Sub Option1_Click(Index As Integer)
ind1 = Index
xx = ActivateKeyboardLayout(1, 1)
Select Case Index
Case 0 ''Heberw
Do While Right(Str(xx), 2) <> "13"
xx = ActivateKeyboardLayout(1, 1)
Loop
Case 1 ''Russian
Do While Right(Str(xx), 2) <> "21"
xx = ActivateKeyboardLayout(1, 1)
Loop
Case 2 ''English
Do While Right(Str(xx), 2) <> "69"
xx = ActivateKeyboardLayout(1, 1)
Loop
End Select
''MsgBox xx
End Sub

yy = GetKeyboardLayout(0&)

Private Sub Form_Unload(Cancel As Integer)
Do While True xx = ActivateKeyboardLayout(1, 1)
If Right(Str(xx), 2) <> Right(Str(yy), 2) Then
Exit Do
End If
Loop
End Sub