好象这样也可以：
        thisform.text1.setfocus
        PostMessage(thisform.hWnd, MY_MSG, 0, 0)

原来 NODEFAULT 就OK，不用异步消息：
    PROCEDURE text1.lostfocus
        NODEFAULT
        this.setfocus
    ENDPROC

我实现搞不定，把整个这一段程序都重新写了，
让这个扫条码的text1单另做一个表单跳出来，用lostfocus去处理。。。
不用那个按钮了，也不让操作员按按钮了。。。

为什么非要将焦点回到TEXT1，扫描枪接收到数据进行相关处理后，把数据显示在TEXT1就行了。

不然啊，扫完一个条码处理完以后，需要待命扫下一个条码，不然每次都要用鼠标去点一下。

我用MSCOMM控件处理接收数据，每次扫描后，焦点都一样，也可又手工输入。