关闭子窗体的问题

Question

有两个窗体分别为Form1和Form2,在Form1中有这么一段代码来多次打开Form2
Set sForm = New Form2
sForm.Show
打开后,我想有选择的关闭其中一个或者某几个,也可能同时全部关闭,请问怎么实现,我是菜鸟,各位老大别见笑!谢谢先了!

Answer 1

Set sForm1 = New Form2
sForm1.ShowSet sForm2 = New Form2
sForm2.ShowSet sForm3 = New Form2
sForm3.Showunload sForm1
...

Answer 2

在这个窗体的Form_Load()中输入某个字符串，如“AAA"
   Me.Tag="AAA"
   
然后在需要关闭窗体的按钮或过程中遍历所有窗体判断Tag属性就可以了。
Dim frm As Form
For Each frm In Forms
    If frm.Tag ="AAA"  Then  Unload frm
Next其实有很多时候，我们需要用几个变量来控制窗体的状态，此时用窗体的Tag属性是很好的。
其他控件也有这个属性，既然有这个属性，就要完全利用上。楼主，给点分，最近手头有点紧