求助：一个小问题！

[lxl2001]

有这么一个子过程

Sub Main()

form1.show vbModal

End Sub

form1里有一个“退出”按钮，需要实现如果用户点击“退出”按钮，关闭form1后，就退出子过程 Main。
帮帮忙哦

[lxl2001]

好像不行啊 我需要的是退出Main这个子过程哦

[lxl2001]

补充一下：sub Main()是在form2这个窗体里的

[tdxue]

设一个全局变量a检测form1的关闭事件

[RUKYO]

Private Sub Form1_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("真的要退出吗？", vbYesNo + vbQuestion + vbDefaultButton2, "请确认") = vbNo Then Cancel = True
End Sub

Private Sub CmdExit_Click()
Unload Me
End Sub