VB一次关闭窗口

Private Sub Form_Unload(Cancel As Integer) '卸载事件(这样在关闭程序时释放内存空间)

Dim n As IntegerFor n = 0 To Forms.conunt - 1 '通过循环找到所有的窗体。forms.count表示窗体的总数。   

Unload Forms(n) '卸载找到的每个窗体

Next

End Sub

'(个人整理而得，如果发现有错漏请提出，谢谢。^_^)