Visual Basic 6 - Chi mi da i codici sorgente per un PortScan

Ragazzi mi dite una guida per creare un semplice portScan

controlla prima nella sezione codici sorgenti del sito se c'è già, tramite la ricerca

si lo so..
ma nn mi trovo molto vorrei dei codici facili facili perche vorrei capirli e vorrei creare un portScan

evidentemente non è un codice facile

non credo di poter fare un codice più semplice di questo

Option Explicit
Dim x As Long
Dim host As String

Private Sub Wsk_Connect()
List1.AddItem "Porta aperta : " & Wsk.RemotePort
End Sub

Private Sub Command1_Click()
host = "127.0.0.1"
List1.Clear
For x = 1 To 65535
Wsk.Close
Wsk.Connect host, x
DoEvents
Next x
End Sub

Le cose che devo aggiungere.. un listbox command1 winsock mm poi?

Ah ecco ma mi da errori..
su tutto il codice quando eseguo l'errore mi da
list1.Clear <-colore giallo xD

Non lo capiro' mai ... a costo di apparire antipatico ...

Ma cosa scrivi un Port Scanner se non sai neanche cosa succede quando hai un errore di quel tipo in VB?

Andiamo ... STUDIA il linguaggio da zero, partendo dall'ABC e non dal Port Scanner ... !
Ci guadagnerai ... lo dico per te ...