vb自制的简易串口工具接收不到数据

[daddyQaQ]

 

Private Sub Combo1_Click()
On Error GoTo blk
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
MSComm1.CommPort = Combo1.ListIndex + 1
MSComm1.PortOpen = True
Else
MSComm1.CommPort = Combo1.ListIndex + 1
MSComm1.PortOpen = True
End If
    Command1.Caption = "串口已经打开"
        Shape1.BackColor = &HFF&
Exit Sub
blk:
    Command1.Caption = "串口已经关闭"
           Shape1.BackColor = &H0&
    MsgBox "串口不存在或者被占用", vbOKOnly, "提示"
End Sub

Private Sub Combo2_Click()
MSComm1.Settings = Combo2.Text & "n,8,1"
End Sub

Private Sub Command1_Click()
   If MSComm1.PortOpen = False Then
    MSComm1.PortOpen = True
    Command1.Caption = "串口已经打开"
        Shape1.BackColor = &HFF&
    Else
    MSComm1.PortOpen = False
    Command1.Caption = "串口已经关闭"
  
           Shape1.BackColor = &H0&
    End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
End Sub

Private Sub Command3_Click()
Text2.Text = ""
End Sub

Private Sub Command4_Click()
MSComm1.Output = Text2.Text
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1
Combo1.ListIndex = 0
MSComm1.Settings = "9600" & "n,8,1"
Combo2.ListIndex = 1
If MSComm1.PortOpen = True Then
Else
MSComm1.PortOpen = True
End If
Shape1.BackColor = &HFF&

End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
    Case comEvReceive
lop:
    Dim hk As Variant
        hk = MSComm1.Input
        Text1.Text = Text1.Text & hk
If MSComm1.InBufferCount <> 0 Then
GoTo lop
End If
End Select
End Sub

 

串口以发送但是接受不到数据怎么回事呢，是因为我vb盗版的原因吗。求大佬指点一下