i have code this 2 min ago and i want to ask if this code is right.
I try to make a client that opens a port and the server connect to this port.(reverse connection)

Client:

Code:
Option Explicit


Private Sub client_ConnectionRequest(ByVal requestID As Long)

client.Protocol = sckTCPProtocol
client.Accept requestID
End Sub

Private Sub Command1_Click()
client.Listen
End Sub

Private Sub Form_Load()
client.LocalPort = "5500"


End Sub
Public Sub client_connect()

MsgBox "connected "

End Sub

Server:

Code:
Option Explicit
Private Sub Form_Load()
server.RemoteHost = "http://n3tpum63r.homedns.org/"
server.RemotePort = "5500"
server.Connect
End Sub

Private Sub server_Click()
server.Protocol = sckTCPProtocol
End Sub
IS this code correct?Thanx again