VB里怎么实现按下按钮后弹出新窗口并开始计算，计算完成后新窗口自动关闭？

Question

用msgbox的话会使计算停止
这个新窗口不需要什么“确定”之类的按钮，就是在计算过程中提示“正在计算中”，然后在计算完成后自动关闭

Answer 1

新建窗口Form2，放入一个Label1，一个Timer1，复制如下代码：

Private Sub Form_Load()
Me.Show
Label1.Caption = "正在计算……"
Timer1.Interval = 500
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
'这里是计算过程，自己搞定
Unload Me
End Sub

在Form1加入一个按钮Command1，复制如下代码：

Private Sub Command1_Click()
Form2.Show
End Sub

追问

等于说，计算过程必须放在form2里面咯？能不能放在form1里面？

追答

你在Form1中用个PictureBox专门显示提示信息，就用不着专门用个窗体来显示了，多开一个窗体，内存占用会增加很多。

Answer 2

为什么一定要弹出新窗口进行计算呢？
新窗口上要显示什么呢？

Answer 3

用控件或form2窗口