Dim buf As New Byte
    Private Delegate Sub DelegateSub()
    Private TextboxAktualisieren As New DelegateSub(AddressOf Wertübergabe)
    Private Sub ProFeeler_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.Text = "ProFeeler"
        Me.Top = Screen.PrimaryScreen.WorkingArea.Height / 2 - Me.Height / 2
        Me.Left = Screen.PrimaryScreen.WorkingArea.Width / 2 - Me.Width / 2
        If SerialPort1.IsOpen = False Then SerialPort1.Open()
        If SerialPort2.IsOpen = False Then SerialPort2.Open()
    End Sub
    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      SerialPort1.DataReceived
        For i As Int32 = 0 To SerialPort1.BytesToRead   ' Alle Bytes einzel 
        ' lesen und anzeigen
            Try
                buf = SerialPort1.BaseStream.ReadByte
                Me.Invoke(TextboxAktualisieren)
            Catch ex As Exception
            End Try
        Next i
    End Sub
 
    Private Sub Wertübergabe()
        txtprogramm.AppendText(buf & ",")                ' die Bytes in der 
        ' TextBox durch Komma trennen
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim daten() As Byte = {100, 110, 120, 130, 140, 150, 160, 170, 190, 200}
        SerialPort2.BaseStream.Write(daten, 0, 10)          ' 10 Bytes aus 
        ' Array daten senden
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If SerialPort1.IsOpen Then SerialPort1.Close()
        If SerialPort2.IsOpen Then SerialPort2.Close()
    End Sub
End Class