Private Sub MSComm1_OnComm ()
Select Case MSComm1.CommEvent
Case comEvReceive
If MSComm1.InBufferCount Then
InString = MSComm1.Input
MSComm1.InBufferCount = 0
End If
End Select
End Sub
Private Sub Form_Load()
MSComm1.RThreshold = 10
MSComm1.InputLen = 0
End If
Private Sub MSComm1_OnComm ()
Select Case MSComm1.CommEvent
Case comEvReceive
If MSComm1.InBufferCount Then
InString = MSComm1.Input
MSComm1.InBufferCount = 0
End Select
End Sub