vb MScom控件接收不到数据

程序如下
Private Sub comLED_OnComm()
    Select Case Me.comLED.CommEvent
        Case comEvReceive
          Dim Buffer As Variant
          comLED.InputLen = 0
        '接收二进制数据
          comLED.InputMode = comInputModeBinary
          Buffer = comLED.Input
          Label11.Caption = Buffer
        Case Else
  End Select
End Sub
计算机接收不到任何数据，为什么？？

---

你在OnComm事件里面宣告定义那些东东, 进来的资料都被你自己干掉了


Dim Buffer As Variant
comLED.InputLen = 0
接收二进制数据
comLED.InputMode = comInputModeBinary

把这些宣告移到 Form_Load或其它地方吧

---

VB code:
Private Sub comLED_OnComm()
Dim Buffer() As Byte '2进制接收
Dim i As Long
Select Case Me.comLED.CommEvent
Case comEvReceive
comLED.InputMode = comInputModeBinary
comLED.InputLen = 0
'接收二进制数据
Buffer = comLED.Input
For i = 0 To UBound(Buffer)
Label11.Caption = Label11.Caption & Right("0" & Hex(Buffer(i