Private Declare Function GetKeyboardLayoutList lib "User32" (Byval NBuff As Long, _
LPLIST AS Long) As long
Private Declare Function ActivateKeyboardLayout Lib "User32" (Byval HKL As Long, Byval_
Flags as long? as long
DIM LA (1) As long
DIM X as long
X = getKeyboardLayoutList (32, LA (1))
ActivateKeyboardLayout La (1), 1
