你好:做如下改动即可.
1.声名个窗体级变量st:
dim st as integer
2.combo1的click事件中加如代码:
  if combo1.text="englist (American)" then
    st=0
    else
    st=1
  end if
3.command1的click事件中:
将activatekeyboardlayout hkb(combo1.listindex),0改成:
activatekeyboardlayout hkb(st),0

还是不行啊.

将form_load中的
nglish (American)
改成english (American)