mm mira os paso el nuevo codigo, y si, ahi algo ahi q falla porque en Winsock1_Error pongo: Msgbox "error" y me muestra ese mensaje pero quisiera saber el porque de este error :S si lo hice todo bien o eso creo, chekear de nuevo el codigo aver:
Private Sub Command1_Click()
Winsock1.Close
Winsock1.Connect Text1.Text, Text2.Text
End Sub
Private Sub Form_Load()
Text1.Text = Winsock1.LocalIP
End Sub
Private Sub Winsock1_Close()
Winsock1.Connect Text1.Text, Text2.Text
End Sub
Private Sub Winsock1_Connect()
Text4.Text = Text4.Text + 1
Winsock1.Close
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 "ERROR!!"
End Sub
Espero que puedan localizar el fallo porque yo no puedo y creo que esta todo correcto, pero me sige sin llegar a Winsock_Connect si no que me va a Winsock_Error...
Si sabeis como lo puedo hacer haciendo un bucle y me podeis explicar como hacerlo con un bucle for, asi por encima, os lo agradeceria muchisimo salu2.