多线程传入参数

Imports System.Threading

Public Class Form1
    Structure MyParameters
        Dim nNum As Integer
    End Structure

    Public paramPM(3) As MyParameters

    Public Function sPM2(ByVal paramPM As MyParameters) As String
        MessageBox.Show("Hello" + paramPM.nNum.ToString())
        Return ""
    End Function


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        paramPM(0).nNum = 1
        paramPM(1).nNum = 2
        paramPM(2).nNum = 3
        paramPM(3).nNum = 4
        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf sPM2), paramPM(0))
        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf sPM2), paramPM(1))
        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf sPM2), paramPM(2))
        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf sPM2), paramPM(3))
    End Sub

End Class