i = stream.Read(bytes, 0, bytes.Length)

Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Imports System.Threading
 
 
Module tcp_server
    Public Delegate Sub ParameterizedThreadStart(ByVal RecieveData)
    Public server
    Public client(0) As TcpClient
 
    Public Sub Main()
        Try
 
            'Port wird festgelegt
            Dim port As Int32 = 1335
            'Locale Adressse wir festgelegt
            Dim localAddr As IPAddress = IPAddress.Parse("127.0.0.1")
            'der Port auf der Adresse wird abgehört
            server = New TcpListener(port)
            ' Start abhörung des Ports
            server.Start()
            ' Enter the listening loop.
            While True
                Form1.TextBox1.Text = "Warten auf Verbindungen"
                'Verbindung vom Cliebt Akzeptieren
                client(socket_index) = server.AcceptTcpClient()
                If client(socket_index).Connected Then
                    MessageBox.Show("Client hat sich verbunden")
                    Dim newThread As New Thread(AddressOf _
                      tcp_server.RecieveData)
                    newThread.Start(client(socket_index))
                    Form1.TextBox1.Text = "Thread gestartet" & vbCrLf & _
                      Form1.TextBox1.Text
                    socket_index = socket_index + 1
                    ReDim Preserve client(socket_index)
                End If
 
            End While
        Catch e As SocketException
            MessageBox.Show("SocketException: " & e.Message)
        Finally
            server.Stop()
        End Try
        MessageBox.Show(ControlChars.Cr + "Hit enter to continue....")
    End Sub
 
    Private Sub RecieveData(ByVal Socket As Object)
        While True
            If Socket.connected Then
                Dim stream As NetworkStream
                ' Empfange Daten von Client
                stream = Socket.GetStream()
                ' Übertragungsgröße festlegen
                Dim bytes(1024) As Byte
                Dim data As String = Nothing
                Dim i As Int32
 
                   Do
                        If stream.CanRead Then
                            i = stream.Read(bytes, 0, bytes.Length)
                            ' Translate data bytes to a ASCII string.
                            data = System.Text.Encoding.ASCII.GetString(bytes, _
                              0, i)
                            ' Process the data sent by the client.
                            data = data.ToUpper()
                            Dim msg As Byte() = _
                              System.Text.Encoding.ASCII.GetBytes(data)
 
                            ' Send back a response.
                            stream.Write(msg, 0, msg.Length)
                            MessageBox.Show("Sent: " & data)
                        Else
                            MessageBox.Show("Kann nicht vom Netzwerkstream" & _
                              "lesen")
                            stream.Close()
                            Socket.Close()
                            Return
                        End If
                    Loop While stream.DataAvailable
            End If
        End While
    End Sub
 
End Module