Private Sub Command1_Click()
If MSComm2.PortOpen Then
MSComm2.RThreshold = Len(Text1.Text)
End If
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
MSComm1.Output = Text1.Text
End If
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm2.CommPort = 2
End Sub
Private Sub MSComm2_OnComm()
Text2.Text = MSComm2.Input
End Sub