怎样关闭所有窗口？

Question

Dim i
For i = 0 To Forms.Count
   Unload Forms(i)
Next

Answer 1

假如我有2个窗口，form1。form2
在form1上有一command，单击command，form2。show
当我关闭form1时怎样关闭form2？

Answer 2

在Form1的Unload中写
Dim i
For i = 0 To Forms.Count
  Unload Forms(i)
Next 

Answer 3

基本同BrentIvan，不过，他有低级错误！dim i as integer
for i=0 to forms.count-1 '兄弟，看清楚了
    if forms(i).name<>me.name then
       unload forms(i)
    next 
nextend

Answer 4

基本同unruledboy(南海佬)不过，他有低级错误！dim i as integer
for i=0 to forms.count-1 
    if forms(i).name<>me.name then
      unload forms(i)
     end if '看清楚了！
nextend 

Answer 5

to:y1g1y1(袁飞☆曾经沧海难为水，除却VB不是云☆)
对不起，是在线打的，键误而已:-)

Answer 6

比较好的顺序是：
        ~~~~private sub Form_Unload(...dim l as long
for l=forms.count-1  to 0 step -1
    if not forms(l) is me then
      unload forms(l)
    end if
nextEnd Sub

Answer 7

看清楚人家的问题先：
假如我有2个窗口，form1。form2
在form1上有一command，单击command，form2。show
当我关闭form1时怎样关闭form2？ 
答案：
在Form1中添加如下代码：
Private Sub Form_Unload(Cancel As Integer)
 Unload Form2
End Sub