這一次寫的是如何用ＶＢ來寫網路程式的方法，你可不要以為這是什麼深奧的程式
，其實只要一個Winsock 控制項就可以了，現在就來介紹一下Winsock 的用法：
步驟一：首先要先把控制項給叫出來，你只要按下Ctrl+T後選取Winsock control 5.0
若是用VB6 的就選Winsock control 6.0，這樣就可以使用Winsock元件。
步驟二：再來我們必須先確定程式是作Server端還是Client端的，要先設定一些屬性：
Server寫法：winsock1.localPort = 5400﹝數字可以隨便設﹞
winsock1.Listen﹝等待連線﹞
Client寫法：winsock1.RemoteHost = "對方IP"
winsock1.RemoteProt = 5400﹝必須要和Server端相同﹞
winsock1.LocalProt = 0
winsock1.Connect﹝連線﹞
連線之前Client端要先知道Server端的IP，接著等到Server端等待連線時，
Client端就可以呼叫Connect方法，雙方連線成功後就可以傳輸資料。
步驟三：當Client連線的時候Server端會引發ConnectionRequest事件，Server的程式
要這樣子寫：
Private sub Winsock1_ConnectionRequest(ByVal requestID As long)
winsock1.Close
winsock1.Accept requestID
end sub
步驟四：這樣一來就可以傳送資料了，傳送和接受資料的方法如下：
傳送資料：mydata = "你好嗎?"
winsock1.sendData mydata
這樣就會把mydata給傳到對方那裡
接受資料：當有資料送到的時候會引發DataArrival事件
Privata sub Winsock1_DtatArrival(ByVal bytesTotal As long)
Dim mydata As String
winsock1.GetData mydata﹝會把送到的資料給mydata﹞
end sub
Winsock 控制項就那麼簡單，只要會這些就可以寫網路遊戲了，相關的程式你可以
參考 VB 的線上說明文件。