Ports in VB5 per WinSock abfragen ?

Einen bestimmten Port abzufragen ist kein Problem, aber wenn ich ALLE abfragen will ( Zweck -> eigenen kleinen Portscanner ), habe ich Probleme das umzusetzen.

Hat evtl. jemand einen Beispielcode, wo z.B. 100 verschiedene Ports überwacht werden ?

Markus