Ребята, спасибо большое; ради Бога, извините. Это не я, это жена, пока меня не было дома. Сейчас проведу воспитательную работу. С уважением, Сергей.

)))

Витя ценю твой юмор!  
Ребята! Поздравляю Вас всех с праздником!!!  
День седьмое ноября –  
Красный день календаря!!!

И мне понадобилось.  
Форма на весь экран. Ввод пароля.  
Можно ли не выбирать на форме, а определять текущий язык?  
Т.е. на форме TextBox, буквочки в котором реагируют на переключение языка с клавиатуры.

Const KL_NAMELENGTH As Long = 8                      'length of the keyboardbuffer  
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long  
 
Public Sub www()  
   Dim strLocId As String  
   strLocId = String(KL_NAMELENGTH, 0)  
   GetKeyboardLayoutName strLocId  
   Select Case strLocId  
   Case "00000419": MsgBox "Ru"  
   Case "00000409": MsgBox "En"  
   Case "00000422": MsgBox "Ua"  
   End Select  
End Sub

Открыта форма, в TextBox отображается текущий язык.  
Есть ли возможность вызывать инициализацию формы или изменение значения TextBox изменением языка с клавиатуры?  
Если без примера никак, то только к вечеру...

Здравствуйте!  
как можно изменить на другие (языки)...(казахский)  
если возможно другие языки...

Не поленился:-)  
Const KL_NAMELENGTH As Long = 8 'length of the keyboardbuffer  
Const KLF_ACTIVATE  As Long = &H1                     'activate the layout  
 
'the language constants  
Const LANG_ru_STD As String = "00000419"  
Const LANG_EN_US As String = "00000409"  
Const LANG_ua_STD As String = "00000422"  
Const LANG_Kk_STD As String = "0000043F"  
 
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long  
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long  
 
Public Sub www()  
Dim strLocId As String  
strLocId = String(KL_NAMELENGTH, 0)  
GetKeyboardLayoutName strLocId  
Select Case strLocId  
Case "00000419": MsgBox "Ru"  
Case "00000409": MsgBox "En"  
Case "00000422": MsgBox "Ua"  
Case "0000043F": MsgBox "Kk"  
End Select  
End Sub  
 
' переключаем на казахский  
Public Sub SwitchLang()  
   Call LoadKeyboardLayout(LANG_Kk_STD, KLF_ACTIVATE)  
End Sub  
Кстати, узнал код раскладки, записав макрорекордером формат даты в казахском языке. После выполнения своего кода к моей неописуемой радости в системе появился еще один язык:-) И шо мне с этим счастьем делать... Сейчас полезу его удалять.

KukLP огромное спасибо Вам!!!  
 
нашел на инте  
 
 
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long  
Sub Язык()  
ActivateKeyboardLayout 0, 0  
End Sub