Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
 
End Sub
 
 
Private Sub MSComm1_OnComm()
If comEvCTS = high Then txtStatus.Text = "funktuniert"
End Sub
 
Private Sub cmdBeenden_Click()
MSComm1.PortOpen = False
unload me
End Sub