Me.myComPort = New IO.Ports.SerialPort(str(0))
 
        ' Die folgenden vier Einstellungen müssen denen der 
        ' Gegenstelle entsprechen
        Me.myComPort.BaudRate = 9600
        Me.myComPort.DataBits = 8
        Me.myComPort.StopBits = IO.Ports.StopBits.One
        Me.myComPort.Parity = IO.Ports.Parity.None
        Me.myComPort.ReceivedBytesThreshold = 1
        Me.myComPort.Open()
    End Sub
    Private Sub myComPort_DataReceived( _
        ByVal sender As Object, _
        ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
        Handles myComPort.DataReceived
 
        Select Case e.EventType
            Case IO.Ports.SerialData.Chars
                ' Ein Zeichen wurde empfangen und im Eingabepuffer platziert.
 
            Case IO.Ports.SerialData.Eof
                ' Das Dateiendezeichen wurde empfangen und im 
                '  Eingabepuffer platziert. 
 
        End Select
        Dim msg As String = Me.myComPort.ReadExisting
        Me.ShowText(msg)
    End Sub
 
    Private Sub myComPort_PinChanged(ByVal sender As Object, ByVal e As _
        System.IO.Ports.SerialPinChangedEventArgs) Handles myComPort.PinChanged
        Select Case e.EventType
            Case IO.Ports.SerialPinChange.Break
                ' Bei der Eingabe wurde ein "break" erkannt.
 
            Case IO.Ports.SerialPinChange.CDChanged
            Case IO.Ports.SerialPinChange.CtsChanged
            Case IO.Ports.SerialPinChange.DsrChanged
            Case IO.Ports.SerialPinChange.Ring
        End Select
    End Sub
    Private Sub myComPort_ErrorReceived( _
        ByVal sender As Object, _
        ByVal e As System.IO.Ports.SerialErrorReceivedEventArgs) _
        Handles myComPort.ErrorReceived
 
        Select Case e.EventType
            Case IO.Ports.SerialError.Frame
 Case IO.Ports.SerialError.Overrunn. 
 
            Case IO.Ports.SerialError.RXOver
            Case IO.Ports.SerialError.RXParity
            Case IO.Ports.SerialError.TXFull
        End Select
        Me.ShowText("ERROR" & vbCrLf)
    End Sub
    Private Sub ShowText(ByVal text As String)
        If Me.TextBox3.InvokeRequired Then
            Dim d As New TextBoxCallback(AddressOf ShowText)
            Me.Invoke(d, New Object() {text})
            MsgBox(myComPort.ReadExisting)
        Else
            Me.TextBox3.Text = Me.TextBox3.Text & text
            MsgBox(myComPort.ReadExisting)
        End If
    End Sub
 
    ''' <summary>
    ''' Hier wird der Command zusammengesetzt und versendet
    ''' </summary>
    ''' <param name="command"></param>
    ''' <remarks></remarks>
    Private Sub Send(ByVal command As String)
        Me.myComPort.Write(command & Me.EndOfCommand)
    End Sub