Dim Listener As New System.Net.Sockets.TcpListener(80)
Dim Host As New System.Net.Sockets.TcpClient()
Dim Networkstream1 As System.Net.Sockets.NetworkStream

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Listener.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
        If Listener.Pending = True And Host.Connected = False Then
            Host = Listener.AcceptTcpClient()
            Networkstream = Host.GetStream
        End If
End Sub

Networkstream.read
Networkstream.Write