在我这里不会啊，你最后说“为什么会出现这个提示”，是什么提示？msgbox"1"在你那儿看的到吗？界面挂起了吗？你怎么停止的运行？
问题描述清楚点吧。。。不好回答啊，又没有上下文PostMessage声明是否正确呢为什么不用WM_KEYDOWN 呢PostMessage Text1.hwnd, WM_CHAR, Asc("A"), 0 是否在一个死循环中呢。。。
看看你如何声明函数的.末尾要加 as long
