程序 server，新建From1（窗体），新建Text1（TextBox），Command1（按钮CommandButton），代码：

程序 client，新建From1（窗体），Label1（Label），Command1（按钮CommandButton），代码：

新建模块 modHook.bas，代码：

这样先运行client，再运行server，server就可以给client发送信息了。