多线程Demo VB.net

Partial Class Test_MapTest
    Inherits System.Web.UI.Page


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim StartTime As DateTime = Now

        Dim FABCStatus As New ABCStatus

        For I = 1 To 100
            Dim FABC As New ABC(I, FABCStatus)
            Dim FThread As New Threading.Thread(AddressOf FABC.Test)
            FThread.IsBackground = True
            FThread.Start()
        Next

        Do While Now.Subtract(StartTime).TotalSeconds < 10
            Threading.Thread.Sleep(100)
        Loop

        Response.Write(FABCStatus.HTML)
    End Sub

End Class

Public Class ABCStatus
    Public Number As Integer = 0
    Public HTML As String = ""
End Class

Public Class ABC

    Public ThreadID As Integer
    Public FABCStatus As ABCStatus

    Public Sub New(ByVal ThreadID As Integer, ByRef FABCStatus As ABCStatus)
        Me.ThreadID = ThreadID
        Me.FABCStatus = FABCStatus
    End Sub

    Public Sub Test()
        For I = 1 To 100
            Threading.Interlocked.Increment(FABCStatus.Number)
            'Number = Number + 1
            FABCStatus.HTML = FABCStatus.HTML & "<br>" & ThreadID & ": " & FABCStatus.Number
            Threading.Thread.Sleep(100)
        Next
    End Sub

End Class