调整输入法的顺序

 输入法的顺序是存放在注册表的HKEY-CURRENT-USERkeyboard layoutpreload子项中，设置的代码如下：

Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

Const KLF_ACTIVATE = &H1

Private Sub Form_Load()

    Dim ret As Long

    ret = LoadKeyboardLayout("e00e0804", KLF_ACTIVATE)

End Sub