Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Const KLF_ACTIVATE = &H1
Public Enum LngConst
Const LANG_FR = &H80C
Const LANG_US = &H409
Const LANG_DE = &HC07
End Enum
Public Sub ChangeKeyboardLanguage(Language As LngConst)
LoadKeyboardLayout Language, KLF_ACTIVATE
End Sub