mscomm问题，为什么接收不到comEvReceive事件,只能接受comEvCTS,大家帮忙,顶有分!

我要使用COM口的条码扫描枪,读数据到,我是用Windows的超级终端可以读到数据,但是用我的程序就不行,是什么原因呀.下面是我得代码
Option Explicit

Private Sub Form_Load()
MSComm1.CommPort = 1 '设置串口号
MSComm1.Settings = "9600,n,8,1" '波特率9600bit/s,无校验,8位数据,1位停止位
MSComm1.InputLen = 0 '读取接收缓冲区的所有字符
MSComm1.PortOpen = True '打开串口
MSComm1.SThreshold = 0 '不触发发送事件
MSComm1.RThreshold = 1 '每一个字符到接收缓冲区都触发接收事件
MSComm1.OutBufferCount = 0 '清除发送缓冲区数据
MSComm1.InBufferCount = 0 '清除接收缓冲区数据
MSComm1.InputMode = comInputModeText
If Not MSComm1.PortOpen Then
MSComm1.PortOpen = True
End If
End Sub

Private Sub MSComm1_OnComm()
Dim strData As String

Select Case MSComm1.CommEvent
Case comEvReceive
MsgBox "1"

Case comEvCTS
MsgBox "2"
End Select
End Sub

请高手指教