Установить английскую раскладку клавиатуры - VB

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

Актуально. Задача. При загрузке программы должна устанавливаться английская раскладка клавиатуры. А если она уже стоит, то такой и должна остаться. Естественно я обратился на форум, ... и на меня обрушился град информации. Привожу вам пример одной такой программы, которую очень похвалили (но она не работает)

Public Declare Function GetKeyboardLayout Lib 'user32' (ByVal dwLayout As Long) As Long
...
Dim HKL As Long
HKL = GetKeyboardLayout(0)
If HKL = 67699721 Then
Label6.Caption = 'ENG'
Else
Label6.Caption = 'RUS'
End If

Стал далее читать сообщения, выяснилось, что нужна активация. Нашёл соответствующую Api-функцию. И привожу вам программу, которая переключает раскладку клавиатуры при нажатии кнопки. Это рабочая программа (она проверена) Но мне нужна не такая. Я подумал, что надо сделать, используя уже известные мне Api-функции чтобы моя задача тоже была решена?? Тут в принципе есть два варианта 1) либо программа как-то узнает какая раскладка уже установлена и действует в соответствии с полученной информацией 2) либо английская раскладка устанавливается независимо от того что стоит. Это все, что я смог сделать. А воз и ныне там!!

Option Explicit
 
Dim HKL As Long, N As Long
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
 
Private Sub Command1_Click()
    HKL = GetKeyboardLayout(0)
    N = ActivateKeyboardLayout(0, 0)
End Sub

Решение задачи: «Установить английскую раскладку клавиатуры»

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

                            Option Explicit
 
Public Enum Layout
    engus = &H409&
    russian = &H419&
End Enum
 
Private Const KLF_SETFORPROCESS = &H100
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Layout, ByVal flags As Long) As Long
 
Private Sub Command1_Click()
    ActivateKeyboardLayout russian, KLF_SETFORPROCESS
End Sub
 
Private Sub Command2_Click()
    ActivateKeyboardLayout engus, KLF_SETFORPROCESS
End Sub
                        