步驟二：再來我們必須先確定程式是作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控制項就那么簡單，只要會這些就可以寫網路