求IP端口扫描器的VB源码

'4个TEXTBOX控件，2个COMMANDBUTTON控件，一个WINSOCK控件

Dim portnum As Long

Dim start As String

Sub scanningports()

Dim porttwo As Long

portnum = Text1.Text

porttwo = Text2.Text