Imports System
Imports System.Threading

'准备在主线程外再启动第2线程运行ThreadProc()方法
Public Class ThreadExample
    ' ThreadProc()方法将会在第2线程启动后被调用
    ' 它将会循环10次，并把结果输出到控制台，也就是Dos模式下显示 
    ' 运行结果后，剩余的时间让线程挂前指定的时间，也就是Thread.Sleep(500)，500代表毫秒，1000毫秒=1秒
    Public Shared Sub ThreadProc()
        Dim i As Integer
        For i = 1 To 10
            Console.WriteLine("ThreadProc方法正在第2线程办第  {0} 件事", i)
            ' 控制台显示了以上信息后，接下来就是让当前线程挂前指定的时间
            Thread.Sleep(500)
        Next
    End Sub

'更多原创VB.Net学习笔记 来自lob.cn乐博网，大家一起来讨论

    Public Shared Sub Main()

        Console.WriteLine("主线程:准备启动第2线程啦.")
        ' 在线程类的结果中需要委派让线程启动；VB.Net提供的AddressOf操作可以完成这个任务
        Dim t As New Thread(AddressOf ThreadProc) '记住，这里调用的方法不能带参数的

       '需要在方法中带参数,可以在乐博网搜索其他文章有详细说明

        ' 在t.Start()新线程开始后，可以调用个Thread.Sleep(5000)，挂起时间自定，看看有什么不同
        t.Start()
        Thread.Sleep(50)

        Dim i As Integer
        For i = 1 To 4
            Console.WriteLine("主线程:这个时候主线程也可以做点事啦，不能闲着.")
            Thread.Sleep(10)
        Next

        Console.WriteLine("主线程: 调用Join()方法,判断第2线程程调用ThreadProc方法是不是已经结束了.")
        t.Join()
        Console.WriteLine("主线程: Join方法答复：完工啦，可以退出了.")
       Console.ReadLine()
    End Sub
End Class