Public Sub RunClient()
        Dim client As TcpClient
 
        'instanziere client
        Try
            Me.ServerLogBox.Text = ("[" + time() + "]Client :" & _
              "Verbindungsaufbau.." & vbCrLf)
            'kreiere neuen client
            client = New TcpClient()
            'verbinden mit server
            client.Connect(ServerIp, 3456)
            'networkstream binden
            output = client.GetStream()
 
            ' kreiere neuen streamschreiber und streamleser
            writerClient = New BinaryWriter(output)
            readerClient = New BinaryReader(output)
'Test ob client was macht
            writerClient.Write("Test..")
 
            Me.ServerLogBox.Text = ("[" + time() + "]Client: Verbindung" & _
              "aufegbaut ..!" & vbCrLf)
         'Test ob client was macht
            writerClient.Write("Test....")
 
            Try
                Do
                    'nachricht des servers lesen
                    message = readerClient.ReadString
                    ServerLogBox.Text = ServerLogBox.Text + ("[" + time() + _
                      "]Server : " & message)
                Loop
 
                ' ausnahme behandeln
            Catch inputOutputException As IOException
                MessageBox.Show("client application beenden")
 
            Finally
                ServerLogBox.Text = ServerLogBox.Text + ("[" + time() + _
                  "]Client: Verbindung wird geschlossen..." & vbCrLf)
                'stream schreiber schliessen
                writerClient.Close()
                'stream leser schliessen
                readerClient.Close()
                'stream schliessen
                output.Close()
                'tcpclient schliessen
                client.Close()
 
            End Try
 
            Application.Exit()
 
            ' ausnahme behandeln
        Catch inputOutputException As Exception
            MessageBox.Show("Es konnte keine verbindung zum Server aufgebaut" & _
              "werden (Ip Adress ungültig)")
        End Try
 
    End Sub

Private Sub ZiehenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal _
  e As System.EventArgs) Handles ZiehenToolStripMenuItem.Click
        Dim IP As New SplashScreen1
        IP.ShowDialog()
    End Sub

mports System.Threading
 
Public NotInheritable Class SplashScreen1
 
    Dim readThread As Thread
    Private Sub numbIP_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles numbIP.KeyDown
        If e.KeyCode = Keys.Enter Then
            Dim form As New Form1
            form.ServerIp = numbIP.Text
             readThread = New Thread(AddressOf form.RunClient)
            readThread.Start()
            Me.Close()
        End If
    End Sub
End Class