Private Sub Server()
 
        Dim Server_client As New TcpClient
        Dim Server_ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, _
          g_PortRecive)
 
        Dim Server_TCPListner As New TcpListener(Server_ipendpoint)
 
        Server_TCPListner.Start()
        Me.Invoke(New del_AddItemtoListbox1(AddressOf _
          del_sub_AddItemtoListbox1), "Server gestartet")
 
        Do
 
            Dim c As New Connection 'neue Verbindung
 
            '' Server wartet auf Verbindung
            Server_client = Server_TCPListner.AcceptTcpClient
            c.Server_stream = Server_client.GetStream
            '' #Server wartet auf Verbindung
 
 
            '' Zu Client verbindung aufnehehmen
            c.Client_TCPClient = New TcpClient
            c.Client_TCPClient.Connect(g_IPSend, g_PortSend)
            c.Client_stream = c.Client_TCPClient.GetStream
            Me.Invoke(New del_AddItemtoListbox1(AddressOf _
              del_sub_AddItemtoListbox1), "Client verbunden")
            '' #Zu Client verbindung aufnehehmen
 
 
            g_server_Connectionlist.Add(c)
 
            Dim t As New Threading.Thread(AddressOf ListenToConnection)
            t.Start(c)
 
            t = New Threading.Thread(AddressOf ListenToConnection2)
            t.Start(c)
        Loop
 
    End Sub
 
 
    Private Sub ListenToConnection(ByVal con As Connection) 'Server lesen
        Do
            Try
 
                Dim reader As New StreamReader(con.Client_stream, False)
                Dim b As Integer = reader.Read
 
                If b <> -1 Then
                    con.Client_stream.WriteByte(b)
                    Me.Invoke(New del_AddItemtoListbox1(AddressOf _
                      del_sub_AddItemtoListbox1), "Server gelesen: " & b)
                End If
 
            Catch
                g_server_Connectionlist.Remove(con)
                Me.Invoke(New del_AddItemtoListbox1(AddressOf _
                  del_sub_AddItemtoListbox1), "Verbindung Server verloren")
 
                Exit Do
            End Try
        Loop
    End Sub
 
    Private Sub ListenToConnection2(ByVal con As Connection) 'Client lesen
        Do
            Try
                Dim reader As New StreamReader(con.Client_stream, False)
 
                Dim b As String = reader.Read
 
                If b <> -1 Then
                    con.Server_stream.WriteByte(b)
                    Me.Invoke(New del_AddItemtoListbox1(AddressOf _
                      del_sub_AddItemtoListbox1), "Client gelesen: " & b)
                End If
 
            Catch
                g_server_Connectionlist.Remove(con)
                Me.Invoke(New del_AddItemtoListbox1(AddressOf _
                  del_sub_AddItemtoListbox1), "Verbindung zum Client verloren")
 
                Exit Do
            End Try
        Loop
    End Sub