一个关于socket编程的有关问题

请教高手一个关于socket编程的问题。
 Public Sub WaitData()
        s = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)  '使用TCP协议

        Dim localEndPoint As New IPEndPoint(IPAddress.Parse(TextBox1.Text.Trim()), TextBox2.Text.Trim()) '指定IP和Port

        s.Bind(localEndPoint)    '绑定到该Socket   这里报错：在其上下文中，该请求的地址无效。
        s.Listen(100)  '侦听，最多接受100个连接
        While (True)
            Dim bytes(1024) As Byte '用来存储接收到的字节
            Dim ss As Socket = s.Accept() '若接收到,则创建一个新的Socket与之连接
            ss.Receive(bytes)  '接收数据，若用ss.send(Byte()),则发送数据
            ListBox1.Items.Insert(0, Encoding.Unicode.GetString(bytes)) '将其插入到列表框的第一项之前
            '若使用Encoding.ASCII.GetString(bytes),则接收到的中文字符不能正常显示
        End While
    End Sub


是从网上下的代码，刚接触网络编程，求大家帮帮忙


[解决办法]
你要绑定你机器上有效的ip地址
[解决办法]
看我博客吧。有类似代码。