'Global im Modul:
Public MyTcpClient As New Socket(AddressFamily.InterNetwork, SocketType.Stream, _
  ProtocolType.Tcp)
 
'Im Formular:
'zum Connecten
Public Sub openConn()
        Try
            Dim ipHostInfo As IPHostEntry = Dns.Resolve( _
              FormConnect.tRechner.Text)
            Dim ipAddress As IPAddress = ipHostInfo.AddressList(0)
            Dim remoteEP As New IPEndPoint(ipAddress, FormConnect.tPort.Text)
            MyTcpClient.Connect(remoteEP)
            netStream = New NetworkStream(MyTcpClient)
         Catch se As Net.Sockets.SocketException
            Debug.WriteLine(se.ToString())
         Catch ex As Exception
            Debug.WriteLine(ex.ToString())
         End Try
    End Sub
 
'zum Schließen
Public Sub closeConn()
        netStream.Close()
        MyTcpClient.Close()
End Sub