如何使窗体关闭时返回一个值？

Question

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim i As Integer
i = MsgBox("确实要退出吗？",vbInformation + vbYesNo, "退出")
If i = vbYes Then
Cancel = 0'退出程序
Else
Cancel = 1，不退出程序
End If
End Sub

Answer 1

还是在moudel里定义一个全局变量，在窗体关闭的时候给它赋值就可以了啊！

Answer 2

定义一个全局变量，在form的unload或者QueryUnload事件里给他赋值就可以了。例如你的程序用的aa添加一个模块，在里边写
Global aa As Integer'或者string
在form里
Private Sub Form_Unload(Cancel As Integer)
aa=12 '自定
end sub
或者
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
aa=13 '自定
End Sub