这里有探测端口是否开放的代码，大家研究一下，如何实现多线程探测？？

下面是探测端口是否开放的代码但这个代码探测的速度太慢，如果要快速扫描端口，应该是增加线程，请问如何多线程扫描端口？？？？谢谢！！！text1,ip地址
text2,起始端口
text3,终止端口
text4,信息
command1,扫描
command2,停止
添加winsock控件，
代码
Option Explicit
Dim PortNo As LongPrivate Sub Command1_Click()
    PortNo = CLng(Text2.Text)
    Text4.Text = ""
    Command2.Enabled = True
    Command1.Enabled = False
    Winsock1.Connect Text1.Text, PortNo
    Me.Caption = "连接端口扫描编号：" & PortNo
End SubPrivate Sub Command2_Click()
    Command1.Enabled = True
    Command2.Enabled = False
    Winsock1.Close
    PortNo = CLng(Text2.Text)
End SubPrivate Sub Form_Load()
    Text1.Text = "127.0.0.1"
    Text2.Text = "1"
    Text3.Text = "32767"
    Label1.Caption = "IP 地址"
    Label2.Caption = "起始连接端口"
    Label3.Caption = "终止连接端口"
    Command1.Caption = "开始扫描"
    Command2.Caption = "停止"End Sub
Private Sub Winsock1_Connect()
    Text4.Text = Text4.Text & "连接端口编号:" & Str(Winsock1.RemotePort) & vbCrLf
    Winsock1.Close
    PortNo = PortNo + 1
    If PortNo <= CLng(Text3.Text) Then
        Me.Caption = "连接端口扫描编号:" & PortNo
        Winsock1.Connect Text1.Text, PortNo
    Else
        Command2_Click
    End If
End SubPrivate Sub Winsock1_Error(ByVal Number As Integer, Description As String, _
                            ByVal Scode As Long, ByVal Source As String, _
                            ByVal HelpFile As String, ByVal HelpContext As Long, _
                            CancelDisplay As Boolean)    Winsock1.Close
    PortNo = PortNo + 1
    If PortNo <= CLng(Text3.Text) Then
        Me.Caption = "连接端口扫描" & PortNo
        Winsock1.Connect Text1.Text, PortNo
    Else
        Command2_Click
    End If
End Sub