小吳 VBQA 程式設計討論

小弟現在用EMbedded Visual Basic 3.0寫WIN CE的程式.下面的程式在VB6中Comm1.CommEvent的值為2,故執行Case comEvReceive ,可從COM 1 讀到硬體所傳送的資料 ,但在WIN CE下,Comm1.CommEvent的值為卻為7,故不會執行 Case comEvReceive這一段,有人知道是為什麼嗎?
Private Sub Comm1_OnComm()
Dim Buf, i
　　 Dim InByte() As Byte
　 Select Case Comm1.CommEvent
　　　　　　　　
　　　　Case comEvReceive　 ' 收到 RThreshold # of Data
　　　　　　　　　　　
　　　Buf = ""
　　　InByte = Comm1.Input
　　　For i = LBound(InByte) To UBound(InByte)
　　　　　Buf = Buf + Hex(InByte(i)) + Chr(32)
　　　Next i
　　　　　Text3.Text = Buf
　　End Select
　　
End Sub