下面的程序是通过点击一个按钮，启动线程(通过委托传递参数)

Dim thread1 As System.Threading.Thread

Delegate Sub mydelegate(ByVal a As Integer)

Private Sub inkFun(ByVal a As Integer)

a = a Mod ProgressBar1.Maximum + 1

End Sub

Private Sub mythread()

For index = 1 To 10000

Dim dh As New mydelegate(AddressOf inkFun)

Invoke(dh,index)

System.Threading.Thread.Sleep(1000)

Next

End Sub

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button1.Click

thread = New System.Threading.Thread(AddressOf mythread)

thread1.Start()

End Sub

Private Sub Form1_FormClosed(Byval sender As System.Object,ByVal e As System.Windows.Forms.FormClosedEventArgs)Handles MyBase.FormClosed

thread1.Abort()

End Sub