Private Sub Form_Load()
Dim i As Integer
For i = 0 To UBound(frmArray)
Set frmArray(i) = New Form2
frmArray(i).Caption = "窗口" & i & "的标题"
Next i
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
For i = 0 To UBound(frmArray)
Set frmArray(i) = Nothing
Next i
End Sub
Private Sub CmdShow_Click(Index As Integer)
frmArray(Index).Show 0, Me
End Sub