Problema con winsock!

[Tyrz]

Hola quiero hacer un "portscan" pero me sale un error que no se solucionar.. Aqui va el codigo
Dim i As Integer

Private Sub Command1_Click()
Winsock1.Close
For i = 1 To 65500
Winsock1.RemoteHost = Text2.Text
Winsock1.RemotePort = i
If Winsock1.Connect Then
Text1.Text = Text1.Text & i & " Conexion establecida"
Else
Text1.Text = Text1.Text & i & " Imposible conectar"
End If
Winsock1.Close
End Sub

Me pone que Error de compilacion no coinciden los tipos y me señala el Winsock1.Connect.
Gracias

[WarGhost]

es que Winsock1.Connect no devuelve nada para saber si estas conectado tienes q esperar a q conecte y mirar por State.

[Tyrz]

ah ok! gracias