请为这样的事情怎么实现？

Question

目的是有一段后台处理程序很费时，想在这期间前面显示一个动画窗口

Answer 1

不可能。
form2.show 1 以后程序将不再执行，直到关闭form2如果你想实现这样的效果。可以用APIPrivate Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongSub YourFunction()
dim rtn as long
rtn = SetWindowPos(Form2.hwnd, -1, 0, 0, 0, 0, 3)
Form2.Show
开始。。
.
.
.
.
结束
Unload Form2
end sub

Answer 2

奇怪，我给的分怎么没看到？

Answer 3

我结帐了，如果楼上的兄弟没收到分我很抱歉，我把分给你了，可是怎么看不见啊