Private Sub Command1_Click() 'Start
MSComm1.CommPort = Val(Combo1.Text) 'Select port from combo box
MSComm1.PortOpen = True 'Open the port
Timer1.Enabled = True
End Sub
Private Sub Command2_Click() 'Stop
MSComm1.PortOpen = False 'Close the port
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"
Combo1.AddItem "13"
End Sub
Private Sub Timer1_Timer() 'Timer set for 100 mS
If MSComm1.CTSHolding = True Then
Shape1.FillColor = &HC000&
Else: Shape1.FillColor = &HFF0000
End If
If MSComm1.DSRHolding = True Then
Shape2.FillColor = &HC000&
Else: Shape2.FillColor = &HFF0000
End If
End Sub