用winsock元件傅送資料的問題

這是我client的程式(evb)
Private Sub Command1_Click()
Dim str As String
str = TextSendPC.Text
WinSock1.SendData str
End Sub
以上程式我是要放在pda上執行的當作client
請問我的WinSock的ip是要打上當作server的pc的ip嗎port也是嗎
另外這是我的server的程式 (vb or evb)
Private Sub WinSock1_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
WinSock1.GetData Data
TextGetData.Text = tmpData
End Sub
我想請問的是server的ip和port是要打上pda的ip和port嗎
如果是的話要如何看pda的ip和port呀= =
因為一直有錯誤
我的pda和pc是用ActiveSync建來連線的
還有我要如何知道pc和pda以經有連上線了呢
另外還有什麼須要注意的嗎
麻煩的經驗的大大告知一下
拜託了T.T