不触发MSComm1_OnComm,该如何处理

不触发MSComm1_OnComm
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
Private Sub Command1_Click()
  MSComm1.Output = "AT+CMGF=1" & vbCrLf
  Sleep 500
  MSComm1.Output = "AT+CMGR=2" & vbCrLf
  Sleep 500
End Sub

Private Sub Form_Load()
  MSComm1.CommPort = 11
  If MSComm1.PortOpen = False Then
  MSComm1.Settings = "115200,n,8,1"
  MSComm1.PortOpen = True
  End If
  MSComm1.InputMode = 0
  MSComm1.OutBufferCount = 0
  MSComm1.InBufferCount = 0
  MSComm1.InputLen = 1
  MSComm1.RThreshold = 1

End Sub

Private Sub MSComm1_OnComm()
  MsgBox ("MSComm1.CommEvent " & MSComm1.CommEvent)
End Sub


端口MSComm1.CommPort = 11
在超级终端下面正常接收,在VB里就没有接收任何信息,不触发MSComm1_OnComm

如果把端口换成1,MSComm1.CommPort = 1 '用另一个设备就
在超级终端下面正常接收,在VB里也可以正常触发MSComm1_OnComm

不同设备对MSComm1支持不一样吗?
但在超级终端里都是正常的?

还需要设置什么啊?

[解决办法]
这是一个VB编制的串口调试器，你可以借鉴一下：http://download.csdn.net/source/1262066