(原)关闭多个New出来的窗体
Option Explicit
Dim f() As Form1
Dim i As Integer
Private Sub MDIForm_Load()
i = 0
End Sub
Private Sub mnu_1_Click()
ReDim Preserve f(i)
Set f(i) = New Form1
f(i).Caption = “hello”
f(i).Show
i = i + 1
End Sub
Private Sub mnu_2_Click()
f(i - 1).Hide
Set f(i - 1) = Nothing
i = i - 1
End Sub
