有人会吗？

嘻嘻，其实严格说业不是初学者，VB就学了很久，但学得很肤浅，所以自己像个初学者。以前上课时老师没有讲空件，所以对winsock根本不了解，这几天我就是专门研究winsock，但没有指导始终很难学。我是通信工程大三学生，现在编写聊天室是我这两个星期的作业，老师说用什么语言编都可以，但我只懂C语言和VB，ASP不懂，所以只能用VB啰！
没办法喇，临急抱佛脚，希望大家可以给点意见，或者是教下如何用winsock

客户端.1给Winsock1.RemoteHost = 端口
2winsock1.RemoteHostIP ="192.168.1.1"
3Winsock1.Connect


服务端1.Winsock1.RemoteHost = 服务端口
2.Winsock1.Bind
3.Winsock1.Listen
4.就是有连接时处理.Private Sub Sockser_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Sockser(i).Accept requestID /*用一个winsock数组来对接

共有
Private Sub Sockser_DataArrival(Index As Integer, ByVal bytesTotal As Long)
dim var as XXX
winsock1.getdata var
信息到时处理.


winsock1.sendata
发信息.

谢谢！这几天我看了关于winsock控件的介绍，都是很理论化的，跟楼上的这位高手说的有点类似，但就是不会运用，正在努力尝试中……

经一个半星期的研究，终于把聊天室程序写出来了。现尚在修改阶段，迟点放上来请各位给点意见。
另外我有两个问题，一是工程生成.exe后，在其他没有装VB的电脑上不能运行，这在不安装VB的前提下有办法解决吗？二是我本身是用ADSL上网的，电信局每次分配到我电脑的IP都不同，有什么方法可以知道自己的IP呢？