如何才能让所有表单都通过一个公用函数退出啊？主要是Unload 的参数不知怎么弄

Question

Sub AllUnload(Unloadfrm as FORM)
    Unload Unloadfrm
end sub调用的时候
AllUnload(from1)

Answer 1

Private Sub Command1_Click()
Dim aa As Form
For Each aa In Forms
Unload aa
Next
Set aa = Nothing
End Sub

Answer 2

End太狠了点，因为，我还有一个主屏幕要留住，我希望是所有的功能窗体都用一个函数退，退了之后返回主屏幕，一用End全完玩儿了......

Answer 3

让我们为dingfuhao(丁丁)和dbcontrols(泰山__帮助你使我感到快乐.)鼓掌三分钟！问题解决！