dialog.frm show后pause程序

Question

问题：
提示窗口dialog.frm show后程序仍然运行，有没有方法在dialog.frm show 以后pause程序？要求：
应用程序运行后，给用户一个提示窗口dialog.frm。
窗口中的确认cmd选择后程序继续运行，取消cmd选择后程序终止。
有点类似于msgbox功能        Dim RetureValue As Integer
        RetureValue = MsgBox "Warning！！！", vbOKCancel
        Debug.Print RetureValue
        If RetureValue = 2 Then Exit Sub

Answer 1

自己找到方法了，定义一个public dPause as integer
dPause =1 
ok 的话 dPause = 3
cancel的话 dPause = 2 
        dPause = 1
        Dialog.Show
        While dPause = 1
        dPause = dPause
        DoEvents
        Wend
        If dPause = 2 Then Clear: Exit Sub        'Select cancel cmd
自己给自己结贴了。嘎嘎

Answer 2

把dPause的定义放在Dialog窗体的声明部分定义，并且是public。显示Dialog.Show加上参数1，这样Dialog不结束就不能到下一步。再Dialog的cmd里面给dPause赋值，并隐藏Dialog窗体。
然后访问的时候用Dialog.dPause,你的方法能实现，就是看起来费劲些，还用了全局变量