Dim stream As New MemoryStream
        Dim ip As String = "127.0.0.1"
        Dim hostip As Net.IPAddress = Net.IPAddress.Parse(ip)
 
        Dim objClient As Net.Sockets.TcpClient
        objClient = New Net.Sockets.TcpClient(hostip, 80)
        Dim objlistener As Net.Sockets.TcpListener
        objlistener = New Net.Sockets.TcpListener(hostip, 80)
 
        objlistener.Start()
        objlistener.AcceptTcpClient()
 
        Dim sw As IO.StreamWriter = New IO.StreamWriter(stream)
        sw.Write(objClient.GetStream())
 
        rtbmessage.Text = " : " + rtbtype.Text + "\n"
        sw.Write(rtbtype.Text + "\n")
        sw.Flush()
        objClient.Close()
        rtbtype.Text = ""