Public Sub sendFile(ByVal client As Socket)
        Dim filename As String = "Sonnenuntergang.jpg"
        Dim FStream As New FileStream("C:\Dokumente und Einstellungen\All" & _
          "Users\Dokumente\Eigene Bilder\Beispielbilder\" & filename, _
          FileMode.Open, FileAccess.Read, FileShare.Read)
        Dim SReader As New StreamReader(FStream)
        Dim Buffer() As Byte
        Dim filedata As String = "file|" & filename & "|" & FStream.Read( _
          Buffer, 0, FStream.Length - 1)
 
        Dim laenge As String = filedata.Length + _
          filedata.Length.ToString.Length + 2
        Dim data As String = "incomingfile|" & laenge
 
        Dim sendData As String = "$" & data.Length & "$" & data
        Dim message() As Byte = Encoding.ASCII.GetBytes(sendData)
        client.Send(message)
 
        'die Datei senden
        Dim sendFile As String = "$" & data.Length & "$" & filedata
        Dim messageFile() As Byte = Encoding.ASCII.GetBytes(sendFile)
        client.Send(messageFile)
    End Sub

Private Sub receive()
        Dim countBytesFromServer As Int32
 
        While True
 
            countBytesFromServer = server.Receive(bytes)
 
            Dim bytesFromServer As String = Encoding.ASCII.GetString(bytes, 0, _
                                            countBytesFromServer)
 
            Console.WriteLine("Nachricht vom Client erhalten: " & _
              bytesFromServer)
            'erstes "$" entfernen
            If bytesFromServer.StartsWith("$") Then
                bytesFromServer = bytesFromServer.Substring(1)
            End If
 
            Dim input() As String = bytesFromServer.Split("$")
            For k As Int32 = 1 To input.Length - 1 Step 2
                Me.datenauswertung(input(k))
            Next
        End While
 
    End Sub