多线程是用于处理复杂项目的
成都创新互联公司服务项目包括中方网站建设、中方网站制作、中方网页制作以及中方网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，中方网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到中方省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
打个比方
你的主程序线程A中有个循环，由于代码是一行行走的，所以循环结束前下面的代码无法运行，而此时主界面的反应就类似卡死的样子，你点击按钮也没有反应，因为主线程在忙着循环呢，所以对按钮的事件代码要等待了，如果要避免这种情况，就要用到多线程，另开一个新线程专门用来执行循环代码，主界面就不会卡死了，只要在循环结束后将结果传回主线程调用就可以了，再复杂点要涉及到委托，控制了
按你的要求其实你的代码用不到多线程，只要把sleep放到两段代码中间就可以了。
新线程结束用thread.abort()
以下是在多线程中显示进度条代码
'定义一个委托
Delegate Sub dl_ShowProgress(ByVal iValue As Integer)
Public Sub ShowProgress(ByVal iValue As Integer)
If ProgressBar1.IsDisposed Then
Return
End If
If ProgressBar1.InvokeRequired = True Then
Dim pInvoke As New dl_ShowProgress(AddressOf ShowProgress)
Me.Invoke(pInvoke, New Object() {iValue})
Else
ProgressBar1.Value = iValue
ProgressBar1.Refresh()
End If
End Sub
'在多线程中调用ShowProgress(*)函数
Private Sub setA()
msgbox("")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim t1 As Threading.Thread = New Threading.Thread(AddressOf setA)
t1.start
End Sub
多线程就是这样的。界面线程是主线程，你这个Form_Load就是运行在主线程上的线程，而Thread1，Thread2是由主线程启动的。这个启动不是线性的。
主线程只是通知系统，请启动一个线程运行某某函数。
而哪个线程先运行完全在系统决定。甚至可能主线程执行到Thread1.Abort() ,Thread2.Abort()的时候这两个线程都还没有启动起来，所以你会遇到两个变量都是空值这种情况。
