Need help with winsock pleaze help me

well i want it so when they connect with winsock and it it cant connect it well say something like sorry unable to connect to this port and if it does let them connected then it well say like this port is open how can i do that please help

try something like this:

Private Sub Winsock1_Connect()
MsgBox "You are connected to port " & Winsock1.RemotePort
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Could not connect to port " & Winsock1.RemotePort
End Sub



------------------
-FirePoweR-
[email protected]