oTcpClient.GetStream.BeginRead(ServerDaten, 0, 1024, AddressOf DoRead, Nothing)

Private Sub DoRead(ByVal Ar As IAsyncResult)
        'Client
        Dim inAnzahl As Integer
        Try
            inAnzahl = oTcpClient.GetStream.EndRead(Ar)
 
            ' Sind überhaupt noch Zeichen im Stream?
            If inAnzahl < 1 Then
                Exit Sub
            End If
            ' Empfangene Zeichen in String umwandeln
            BuildString(ServerDaten, 0, inAnzahl)
 
            oTcpClient.GetStream.BeginRead(ServerDaten, 0, 1024, AddressOf _
              DoRead, Nothing)
        Catch eX As SocketException
            MsgBox("FEHLER: " & eX.Message)
        End Try
    End Sub

Private Sub BuildString(ByVal Daten() As Byte, ByVal Start As Integer, ByVal _
  Anzahl As Integer)
        Try
            'Einlesen der einkommenden Werte
            'Client
            Dim sdata As String
            Dim oSWr As New StreamWriter(oTcpClient.GetStream)
 
            sdata = System.Text.Encoding.Default.GetString(Daten, Start, Anzahl)
 
            Dim ParamListe() As Object = {sdata}
            Dim paramliste1() As Object = {0}
            Me.Invoke(New DisplayInvoker(AddressOf Me.Status), ParamListe)
            Me.Invoke(New DisplayInvoker(AddressOf Me.Daten_auswerten), _
              ParamListe)
            Me.Invoke(New DisplayInvoker1(AddressOf Me.Linie_zeichnen), _
            paramliste1)
 
            Daten_auswerten(sdata)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

private sub Linie_zeichnen
'...
picGraph.Refresh()
end sub