步驟二：再來我們必須先確定程式是作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的程式要這樣子寫：
PrivateSubWinsock1_ConnectionRequest(ByValrequestIDAslong)
winsock1.Close
winsock1.AcceptrequestID
EndSub
步驟四：這樣一來就可以傳送資料了，傳送和接受資料的方法如下：
傳送資料：mydata="你好嗎？"
winsock1.sendDatamydata
這樣就會把mydata給傳到對方那裡。
接受資料：當有資料送到的時候會引發DataArrival事件。
PrivataSubWinsock1_DtatArrival(ByValbytesTotalAslong)
DimmydataAsString
winsock1.GetDatamydata 會把送到的資料給mydata
EndSub
Winsock控制項就那麼簡單，只要會這些就可以寫網路
