各位大侠帮我看看

   我自己做了一个通讯控件，它的源代码见附录：
我用VB调用这个控件自发自收时,若在发送数据函数（SetSendData）和查发送状态函数（GetSendState）加上零界区控制的话，则收数据函数（ReadData）中的时件函数（FireRecieve）不能返回，所以整个程序就死机了；若在发送数据函数（SetSendData）和查发送状态函数（GetSendState）中不加零界区控制的话，则在关闭整个程序时就出现VB6a.dll产生无效页和SSCCC.dll产生无效页错误，请各位老师帮我解决以下，我不胜感激！！！