'父 MDIForm 中的模块级集合。
Public colDocuments As New Collection
'建立新的 MDI 子文档窗体的代码。
Private Sub mnuFileNew()
Dim f As New mdiDocument
Static intDocumentNumber As Integer
intDocumentNumber = intDocumentNumber + 1
'下面的语句创建窗体。
f.Caption = "Document" & intDocumentNumber
'给集合添加对象引用。
colDocuments.Add f
f.Show
End Sub
colDocuments 的作用象是内置窗体集合的一个子集,它只包含窗体 mdiDocument 的一些实例。每添加一个新窗体,自动调节集合的大小。可使用 For Each ... Next 在集合内进行迭代。如果赋予窗体一个可以检索的键,那么可提供一文本字符串作为 Add 方法的第二个参数,如本节后面部分所述。