Private Sub Form_Load()
 
' Comport definition
mscWaage2.CommPort = 1
mscWaage2.Settings = "4800,N,8,1"
 
mscWaage2.RThreshold = 12 'HIER DIE ANZAHL DER ANKOMMENDEN ZEICHEN
mscWaage2.SThreshold = 1
mscWaage2.InputLen = 0
 
mscWaage2.PortOpen = True
 
End Sub
 
<pre><code>Private Sub mscWaage2_OnComm()
 
Dim strCom As String
 
Select Case mscWaage2.CommEvent
    Case comOverrun:   MsgBox "Datenverlust!"
    Case comRxOver:    MsgBox "Datenverlust!"
    Case comEvReceive: Eingang = MSComm1.Input
End Select
 
strCom = Eingang
 
End Sub