vb中将当前的输入法变为英文输入法

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