如何用代码关闭未知的SHOW 1 窗体

Question

比如说， 一个主窗体form1 使用show 1 呼出了1个或1个以上的窗体，我想要用代码一次性关闭被呼出的窗体，但是保留form1这个主窗体不被关掉。请问要怎么做，谢谢
                   

Answer 1

For i = Forms.Count - 1 to 0 Step -1
    if forms(i).Caption != "主窗口标题" unload forms(i)
next

Answer 2

For i = Forms.Count - 1 to 0 Step -1
  if forms(i).Caption != "主窗口标题" then unload forms(i)
next

Answer 3

Dim i As Long
For i = Forms.Count - 1 To 0 Step -1
  If Forms(i).Caption <> "主窗口标题" Then UnLoad Forms(i)
Next