Snippets
Detect Signal On Serial Port VB6
MSComm1.CommPort = 1 ‘use serial port 1
MSComm1.PortOpen = True ‘open it up
If MSComm1.CommEvent = comEvCTS Then ‘comEvCTS = change in the CTS pin
lblResults.Caption = “signal received”
End If
MSComm1.PortOpen = False