建议你使用BackGroundWorker控件。将代码写入控件的事件中，使用它的Start方法就可以开始工作了。是与主程序同时进行的。
创新互联建站是专业的庆云网站建设公司，庆云接单;提供做网站、网站制作,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行庆云网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
“卡死”是一个非常主观的描述，如果你要让主线程杀掉卡死的线程，那么你必须给“卡死”做出准确的定义。
什么是卡死？30秒没有响应就是卡死？那么“没有响应”的定义又是什么？
你给出这些条件以后，杀掉一个线程就不难。Abort方法，Dispose方法，都可以。
并没有看出什么地方可能导致程序假死,这排版也太乱了.不妨调试一下程序,当出现你说的"假死"后暂停一下程序,看看线程都卡在哪里.
另外,从设计上来看,你这里并不需要多线程操作.
以下是在多线程中显示进度条代码
'定义一个委托
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(*)函数