VB.net 如何使用多线程扫描呢？

ixinwen

  如图所示，导入 url 后，想采用多线程进行扫描。 网上一直没有找到可以落实的代码。请指教。


   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ListBox2.Items.Clear()
        Scan_Flag = 1
        Scan_Index = 0
        Scan_Max = ListBox1.Items.Count
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = Scan_Max
        ProgressBar1.Value = 0
        For x As Int32 = 1 To Val(ComboBox1.Text)                               ' combobox1.text 是线程数量
            Dim go As New Threading.Thread(AddressOf scan)
            go.Start()
        Next
        Timer1.Start()

    End Sub



   Sub scan()
        Dim index, max As Int32
        max = ListBox1.Items.Count
        For i As Int32 = 0 To ListBox1.Items.Count - 1
            If Scan_Flag = 0 Then Exit For
            Dim url As String = ListBox1.Items.Item(i) & "/index.php"
            index = Threading.Interlocked.Increment(Scan_JD)



            Dim temp As String = Scanurl(url)

                ListBox2.Items.Add(url & "--" & temp)
                Label1.Text = "scaning " & url

        Next
        Label1.Text = "scan over"
    End Sub


请问 如何可以做到 多线程 ， 同步扫描 ？ 语句应该是怎么样写才正确呢？