Private Sub Command1_Click()
    hComm = comOpen("COM1") 'Öffnen
    If hComm = 0 Then
        LblStatus.Caption = "Not Connected!"
        'PlaySound DisConnected
        Exit Sub
    Else
    LblStatus.Caption = "Connected!"
 
Timer1.Interval = 10
Timer1.Enabled = True
 
End If
End Sub
 
Private Sub Timer1_Timer()
    Dim sAnswer As Long
    sAnswer = comGet(hComm, test)
    If sAnswer > 0 Then
        MsgBox "es kommt " & test
    End If
End Sub

MFG ....


Wenn es das Forum nicht g?b, ich glaub ich h?tte meine Fragen in gro?en Buchstaben in den Sand geschrieben.

Hoffentlich kommt ein Schiff und Jemand kennt eine passende Antwort darauf...