Aca esta el programa lo hice para ver el estado del winsock.
Una vez que esta conectado el estado tendria que ser 7 = sckConnected pero cuando se conecta el estado es 6 = sckConnecting. ¿Esto es asi o el codio tiene algun problema?
Apesar de que esta en 6 y no en 7 manda los datos igual.

Aca el codigo:

Private Sub Command1_Click()
Dim dato As String
dato = Text1.Text
send.SendData dato
End Sub

Private Sub Command2_Click()
listen.LocalPort = 9000
listen.listen
End Sub

Private Sub Command3_Click()
send.RemoteHost = "127.0.0.1"
send.RemotePort = 9000
send.Connect
Label2.Caption = send.State
End Sub

Private Sub listen_ConnectionRequest(ByVal requestID As Long)
listen.Close
listen.Accept requestID
End Sub

Private Sub listen_DataArrival(ByVal bytesTotal As Long)
Dim data As String
listen.GetData data
Label1.Caption = data
End Sub