problema con servidor en vb6

[elguast]

hola buenas tardes a todo el foro tengo un problema  estoy haciendo un cliente servidor en visual basic 6.0,tengo hecha la parte cliente pero al hacer el servidor no hay manera de que se conecten alguien me ayuda..cuando funcione lo posteare todo para que lo prueben y por supuesto con su codigo


Private Sub Command1_Click()
On Error Resume Next
ws.LocalPort = Text2.Text
ws.Close
ws.Listen
If ws.State = 2 Then lab.Caption = "conectado al puerto..."
End Sub

Private Sub Command2_Click()
ws.Close
lab3.Caption = "desinfectado"
End Sub

Private Sub Timer1_Timer()
On Error GoTo error
If Not ws.State = 7 Then
lab3.Caption = "desconectado"
Else
End If
If ws.State = 7 Then
lab3.Caption = "conectado"
Else
End If
If lab3.Caption = "desconectado" Then
lab3.Caption = "desconectado"
GoTo puente
Else
End If
GoTo error
puente:
ws.Close
ws.Listen
error:
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
On Error GoTo error
ws.Close
ws.Accept requestID
lab2.Caption = ws.RemoteHostIP
Timer1.Interval = 3000
error:
End Sub

como haria lo basico del servidor para que me conectara a este cliente

                                               saludos.

[vivachapas]

mmm hay partes del codigo q no se q baten xD como esta

Código (vb) [Seleccionar] Expandir

If lab3.Caption = "desconectado" Then
lab3.Caption = "desconectado"
GoTo puente
Else
End If

encima puente no esta en ningun lado xD

en fin para conectarte a ese servidor el cliente deberia tener

dim ip as string
dim puerto as long
ip = "127.0.0.1"
puerto = 'aca pones el q pongas en el text1.text del servidor
ws.connect ip, puerto

y listo.. ahi ya lo conectaste

SALUDOS