VB6.0 虚拟串口调试程序

今天试了试网上的小程序，想学习学习VB6，但是发现可以发送数据，但是接不到数据，这是为什么？用的虚拟串口COM。
用串口助手调试COM1发送，COM2接收是没有问题的。是不是因为这个程序是自发自收所以收不到数据？那要如何修改呢？
很抓狂，请多多指教！