VB控件:Image

都在里面
首先，新建一工程，名为Server，新建一个窗体，Name为Server，在窗体中加入一个winsock控件，Name设为sckServer，协议设为默认的TCP／IP协议。

接下来我们回来Server窗体模块中，添加如下代码：

Private Sub form_Load()
With Me
.sckServer.LocalPort = 88917'本地端口（呵呵！我的生日！）
.sckServer.Listen '开始监听
End With
End Sub

'接受客户端的连接请求。

Private Sub sckServer_ConnectionRequest(ByVal requestID As Long)
With Me
If .sckServer.State <>sckClosed Then .sckServer.Close
.sckServer.Accept (requestID)
End With
End Sub
下面我们来建立客户端程序：新建一个工程，名为Client，把窗体名为Client，在上面加入一个winsock控件，名为sckClient，协议为TCP／IP协议。再加一个按钮cmdConnect在窗体模块中加入代码：

Private Sub form_Load()
With Me
.sckClient.RemoteHost = "127.0.0.1"'设置远程IP，本例设为本机。
.sckClient.RemotePort = 88917 '远程端口,就为server中的设置一样.
End With
End Sub

Private sub cmdConnect_Click()
SckClient.Connect
End