Public Class ProFeeler
 
    Dim Programm As String
 
    'Damit der eingehende Wert an die txtprogramm übergen werden kann!
    Private Delegate Sub DelegateSub()
 
    'Damit der eingehende Wert an die txtprogramm übergen werden kann! Führt 
    ' die Sub Wertübergabe aus!
    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
 
        SerialPort1.PortName = "Com1"
        SerialPort1.Open()
    End Sub
 
    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      SerialPort1.DataReceived
        Programm = SerialPort1.BaseStream.ReadByte
        Programm = Programm.Replace(Chr(13), Nothing) 'hier wird der der 
        ' Zeilenumbruch oder Enter entfernt!!
        Me.Invoke(TextboxAktualisieren) 'Damit der eingehende Wert an die 
        ' txtprogramm übergehen werden kann!
    End Sub
 
    Private Sub Wertübergabe()
        txtprogramm.Text = Programm
    End Sub
 
End Class

fg viperbone