hello , this is the first time i come here , i m checking the website hours ago :P it's really gr8 keep the good work guys
i m a vb beginner i m using vb6 and i start using winsock latly (minutes ago)
i read some tutorials on the net and i made this little program but the problem is that it's not working :S . here the code
thanks in advance

Private Sub Command1_Click()
host = InputBox("Enter the host's computer name or ip address:")
Port = InputBox("Enter the host's port to connect to:")
Winsock1.Connect host, Port
End Sub

Private Sub Command2_Click()
Port = InputBox("What port do you want to host on?")
Winsock1.LocalPort = Port
Winsock1.Listen
End Sub

Private Sub Command3_Click()
Text = InputBox("Send what text?")
Winsock1.SendData Text
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)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept RequestID
End Sub
Private Sub winsock1_RecieveData(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)
Winsock1.GetData Data
MsgBox Data
End Sub