Смена языка в VB

'1. Создайте модуль и впишите этот код.

Private Declare Function ActivateKeyboardLayout Lib "user32" _

(ByVal HKL As Long, ByVal flags As Long) As Long

Const LANG_RUSSIAN = (68748313)

Const LANG_ENGLISH = (67699721)

Public Function Russian()

Call ActivateKeyboardLayout(LANG_RUSSIAN, 0)

End Function

Public Function English()

Call ActivateKeyboardLayout(LANG_ENGLISH, 0)

End Function

'2. Создайте форму и поместите две кнопки.

Private Sub Command1_Click()

Russian

End Sub

Private Sub Command2_Click()

English

End Sub