Cerrar puertos en Visual Basic

JAH
15 de Agosto del 2005
hola:
estoy creando una pequeña aplicasion eb vb que cierra unos 6 puertos a modo de firewall para que otros sft no los puedan usar.

para elo uso controles winsock, pero parece que despues de ejecutar el programa todavia quedan abiertos que pasa?
// ws= winsocket

Private Sub Form_Load()
Ws.LocalPort = 4662
Ws.Listen

End Sub

Private Sub Ws_ConnectionRequest(ByVal requestID As Long)
MsgBox "intento de conexion desde: " & Ws.RemoteHostIP & " al puerto " & Ws.LocalPort
Ws.Close
End Sub