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

ah ok! gracias