Private
Sub
Button3_Click(sender
As
Object
, e
As
EventArgs)
Handles
Button3.Click
Me
.BackgroundWorker1.RunWorkerAsync()
Me
.BackgroundWorker1.WorkerReportsProgress =
True
Me
.BackgroundWorker1.ReportProgress(100)
messageBox(
"现在启动线程序。。运行之中"
)
End
Sub
Private
Sub
backgroundWorker1_RunWorkerCompleted( _
ByVal
sender
As
Object
, _
ByVal
e