Private Delegate Sub DelegateSub()
    Private TextboxAktualisieren As New DelegateSub(AddressOf Wertübergabe)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        With AxMSComm1
            .CommPort = 1
            .Settings = "9600,E,8,1"
            .PortOpen = True
        End With
        Button1.Text = "Verbindung steht"
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        AxMSComm1.Output = Chr(2).ToString 
    End Sub
 
    Private Sub AxMSComm1_OnComm(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles AxMSComm1.OnComm
 
        Me.Invoke(TextboxAktualisieren)
 
    End Sub
 
 
    Private Sub Wertübergabe()
 
        TextBox4.Text = TextBox4.Text & vbCrLf & " Ereignis: Datenempfang wurde" & _
          "ausgelöst! "
        TextBox4.Refresh()
 
        TextBox1.Text = TextBox1.Text & vbCrLf & CByte(Asc( _
          AxMSComm1.Input.ToString))
        TextBox1.Refresh()
 
    End Sub