.net 进度画面

Dialog1 是一个对话窗体，显示类似进度条的动画，showprogressbar是打开该窗体的过程，在一个新的线程中执行。
Public Sub showprogressbar()

        Dim pr As New Dialog1
End Sub
下面是调用新线程的过程
Dim t As New Thread(AddressOf showprogressbar)

t.Start()
Thread.Sleep(0)
在这里执行你的长时间操作。
t.Abort()