在文本框单击事件中写什么样的代码，实现将当前中文输入法切换成英文输入法？因为该文本框只需要输入英文字母.

VFP的IMESTATUS()适用XP，之后的windows版本可能不适用。
可以试试用WinAPI切换输入法，如：
DECLARE LONG GetKeyboardLayout IN User32 LONG
DECLARE LONG LoadKeyboardLayout IN User32 STRING@, LONG
DECLARE LONG ActivateKeyboardLayout IN User32 LONG,LONG
hLayout = GetKeyboardLayout(0)
?"切换为En输入法"
LoadKeyboardLayout("0x0409", 1) && KLF_ACTIVATE
?"按一键恢复原输入法"
INKEY(0)
ActivateKeyboardLayout(hLayout, 0)

程序一执行就死机！
而且想做到，点击文本框时，自动换成英文输入法才好用的。

windows的API调用应该不会死机。
可以在其他机上试试，看是否系统的问题，如果API被第三方HOOK了就不好说。