VB程序怎样实现联机运行？？？

可以用WINSOCK控件实现联机,
设一个Command,两个Winsock,下面要设置IP,写入以下代码看发生什么.
Private Sub Form_Load()
Winsock1.RemoteHost = "写你电脑的IP"
Winsock1.RemotePort = 5555
Winsock2.LocalPort = 5555
Winsock2.Listen
End Sub

Private Sub Winsock1_Connect()
Winsock1.SendData "收到吗?"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim S As String
Winsock1.GetData S, vbString
If S = "收到了." Then Winsock1.SendData "那就好."
Print S
End Sub

Private Sub Winsock2_ConnectionRequest(ByVal requestID As Long)
Winsock2.Close
Winsock2.Accept requestID
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim S As String
Winsock2.GetData S, vbString
If S = "收到吗?" Then Winsock2.SendData "收到了."
Print S
End Sub

1、将程序安装在“服务器”，使程序文件夹共享；
2、制作客户端安装程序（实际就是在客户端安装VB运