版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
本节的例子通过主线程不断读取类的值来获得子线程运行情况：
使用到的类：
Class clsSum2
Public inputNum As Integer
Public currentNum As Integer
Public outputSum As Integer
End Class
其中currentNum保存当前正在计算的那个整数。
Sub sample8()
Dim maxNum As Integer = 20
Dim sumNumber As New clsSum2
sumNumber.inputNum = maxNum
Dim sample8_Thread As New Thread(AddressOf sample8_getSum)
sample8_Thread.Start(sumNumber)
Do Until sumNumber.currentNum >= maxNum
Console.WriteLine("当前计算到：{0}", sumNumber.currentNum)
Thread.Sleep(100)
Loop
sample8_Thread.Join()
Console.WriteLine("和为：{0}", sumNumber.outputSum)
Console.ReadKey()
End Sub
Sub sample8_getSum(ByVal obj As Object)
Dim testSum As New clsSum2
testSum = CType(obj, clsSum2)
Dim sum As Integer = 0
For i As Integer = 0 To testSum.inputNum
sum += i
testSum.currentNum = i
Thread.Sleep(100)
Next
testSum.outputSum = sum
End Sub
可以看到调用子线程后，主线程不断地做循环调用，需要注意的是，防止主线程或子线程占用完cpu，应该使用sleep。
运行如下：
由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。
学习更多vb.net知识， 请参目录vb.net教程版权声明：
本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。原文链接：https://blog.csdn.net/UruseiBest/article/details/87893645
