串口通信中CommEvent属性值一直为0

刚开始学串口通信，上午看了好久各种各样的api，头都大了，然后发现vb有现成的串口控件。但编程时还是碰到了问题，我用vspd串口虚拟工具增加了com2，并和com1连接，用XCOM串口调试工具打开com2串口，然后想在程序中通过两个文本框收发数据，可以正常发送数据，但没办法接收数据，通过xcom从com2发送数据时，控件的commEvent属性值一直为0，而且一直不触发控件的onComm事件，然后我就创建一个点击按钮，不对commEvent进行判断，直接通过文本框接收控件的input属性值，然后能正常接收数据，这种问题改怎么解决啊
接收按钮事件代码：
Private Sub got_Click()
Dim str As String
Cls
gottxt.Text = MSComm1.Input
End Sub
onComm事件代码：
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case 2
Cls
gottxt.Text = MSComm1.Input
End Select
End Sub