#esto es todo mi codigo del cliente


Private Sub Command1_Click()
 On Error Resume Next
 Winsock1.RemoteHost = Text3.Text
 Winsock1.Connect
End Sub
Private Sub Command2_Click()
Dim enviar As String
   enviar = Text2.Text
   Winsock1.SendData enviar
   Text1.Text = ""
   Text2.Text = ""
End Sub
Private Sub Command3_Click()
Winsock1.Close
End


End Sub

Private Sub Label4_Click()

End Sub

Private Sub Timer1_Timer()
If Winsock1.State = winsock1Closed Then
            Label4.Caption = "-Desconectado-"

End If
If Winsock1.State = winsock1Connected Then
            Label4.Caption = "-Conectado-"
End If
End If
If Winsock1.State = winsock1Connecting Then
      Label4.Caption = "-Conectando-"
End If

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
 Dim datos As String
   Text1.Text = ""
   Winsock1.GetData datos
   Text1.Text = Text1.Text + datos
End Sub

#pero la parte del Timer me pasa lo que te dije(#el problema es que siempre queda en conectando.)no cambia a conectado ni a desconectado Bueno agradeceria la ayuda

Pero supuestamente deberia quedar el coenctado todo el rato si cumple la condicion.me podrias explicar mejor,o que tengo mal yo.plz

grax