无论是否内置集合，它都是存在的。利用For Each.....Next和对象的集合，你可以编写非常有效的代码，例如下面的代码：

Sub FormCaption()
    Dim frm As Form 
    For Each frm In Forms
        frm.Caption= frm.Caption &"- "& CurrentUser 
    Next
End Sub

在这个代码中，使用Forms集合来迅速有效地对每个窗体进行循环，改变窗体标题栏上的标题。