Где тут ошибка с этим Winsock'ом, блин!?

[GRS]

Привет, за одно спросить хотел.

Код:

Код: Выделить всё

Private Sub Form_Load()
Winsock1.RemoteHost = "192.168.0.1" ' МОИ IP к примеру
For a = 1 To 5500
Winsock1.Close
Winsock1.RemotePort = a
Winsock1.Connect
Next a
End Sub

Private Sub Winsock1_Connect()
Winsock1.Close
MyMessage$ = "ПОРТ ОТКРЫТ!"
End Sub

И знаете чё? события connect не происходит, хотя открытые порты есть. В чем ошибка? Мне знать нужно открытые порты и сразу вопрос - закрыть я их могу? FireWall короче небольшой.