VB 遍历已打开的MDI子窗体的实现代码，考试大让大家参考一下！
　　Private Sub new_Click()
　　For Each mdifrm In VB.Forms
　　If mdifrm.Caption <> Me.Caption Then
　　Unload mdifrm
　　End If
　　Next
　　End Sub http://ks.examda.com