Программно установить Русскую раскладку клавиатуры (именно установить, не активировать) - VB

Формулировка задачи:

Прошу помощи. Необходимо Программно установить Русскую раскладку клавиатуры в английскую версию Windows (именно установить, не активировать). долго ищу - не могу найти. Помогите... А то везде только и говорят как активировать уже установленную. Я понимаю что установить надо kbdru.dll из папки Windows/system32, но как это сделать? Подскажите. Очень нужно...

Решение задачи: «Программно установить Русскую раскладку клавиатуры (именно установить, не активировать)»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Private Declare Function UnloadKeyboardLayout Lib "user32" (ByVal HKL As Long) As Long
Private Const KLF_ACTIVATE = &H1
Private Const KLF_SETFORPROCESS = &H100
 
Dim hKlm As Long
 
Private Sub Form_Load()
    hKlm = LoadKeyboardLayout("00000407", KLF_ACTIVATE Or KLF_SETFORPROCESS)
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    UnloadKeyboardLayout hKlm
End Sub
                        