如何弹出一个等待对话框，让用户不能操作原来的窗体，但是原来窗体的程序能继续运行。

Question

如何弹出一个等待对话框，让用户不能操作原来的窗体，但是原来窗体的程序能继续运行。运行完后等待窗口自动关闭。就像虚拟光驱加载新盘时会弹出等待对话框，而主界面是不能点的，但仍在运行。

Answer 1

Private Sub Command1_Click()
    Me.Enabled = False
    Form等待对话框.Show
    Dim i As Long
    For i = 1 To 10000
        Text1.Text = i
        i = i + 1
        DoEvents
    Next
    Unload Form等待对话框
    Me.Enabled = True
End Sub

Answer 2

在原来的程序里面执行程序时用个doevent语句，然后调出新窗体.show 0,1，然后将新窗体的关闭按纽禁用，在此新窗体中写倒计时或做进度条，时间到了再关闭此窗体。

Answer 3

其实，我想要达到的目的是这样的，如网页上有个函数
function test1(){
    加载等待对话框
    method1();
    method2();
    卸载等待对话框
}
因为是直接在网页上调用，不能设置其enable属性，我想让加载等待对话框为模式对话框，这样就不能离开加载对话框了，但是后面的程序也会不做了，怎么能让焦点只能在加载的对话框上而让test1()继续执行呢
不过还是要谢谢你们。

Answer 4

我知道，我要让点背景窗体也没反应，就像网页上openDialog一样，但是openDialog连后面的程序也被屏蔽了，直到关掉才能运行，我想让其打开时后面程序也能运行。