Private Sub verbinden_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles verbinden.Click
        With SerialPort1
            If Not .IsOpen Then
                Try
                    .PortName = ComboBox1.Text
                    .BaudRate = 38400
                    .DataBits = 8
                    .Parity = Parity.None
                    .StopBits = StopBits.One
                    .WriteTimeout = 1000               ' 1000 ms = 1 Sek.
                    '.ReadTimeout = 1000             ' 1000 ms = 1 Sek.
                    .Open()
                    verbinden.BackColor = Color.Green
                    verbinden.Text = "Verbunden"
                    Dim readThread As New Thread( 'Lesethread
                        Sub()
                            ReadSerialPort(SerialPort1)
                        End Sub)
                    readThread.Start()
                Catch ex As Exception
                    MessageBox.Show(ex.Message, "Fehler beim Open", _
                      MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                End Try
            End If
        End With
    End Sub
 
    'Wird im Lesethread aufgerufen
    Private Sub ReadSerialPort(port As SerialPort)
        ' Lesen
        While True
            ' 7 Bytes Head lesen
            Dim head As Byte() = New Byte(6) {}
            Dim headBytesRead As Integer = 0
 
            While headBytesRead < head.Length
                Dim read As Integer = port.Read(head, headBytesRead, head _
                  .Length - headBytesRead)
                headBytesRead += read
            End While
 
            'jetzt aus Head die Größe der restlichen Daten auslesen
            Dim restlicheGroesse As Integer = .....
            Dim body As Byte() = New Byte(restlicheGroesse - 1) {}
            Dim bodyBytesRead As Integer = 0
 
            While bodyBytesRead < restlicheGroesse
                Dim read As Integer = port.Read(body, bodyBytesRead , _
                  restlicheGroesse - bodyBytesRead )
                bodyBytesRead += read
            End While
 
            'GUI-Thread benachrichtigen, dass Telegramm empfangen wurde
            BeginInvoke(New Action(Of Byte(), Byte())(AddressOf _
              TelegramEmpfangen), head, body)
        End While
    End Sub
 
    'Wird im GUI-Thread aufgerufen, wenn Telegramm empfangen wurde
    Private Sub TelegramEmpfangen(head As Byte(), body As Byte())
        'Weiterverarbeiten..
    End Sub