VB有 一 個 Forms 集 合 ， 它 的 元 素 代 表 每 一 個 在 應 用 程 序 中 加 載 的 窗 體 （ 不 包 括 未 加 載 的 窗 體 ） 。 集 合 包 括 應 用 程 序 的 MDI 窗 體 ,MDI 子 窗 體 和 非 MDI 窗 體 。 Forms 集 合 只 有 一 個 屬 性 Count， 指 定 集 合 中 元 素 的 數(shù) 目 。 
    下 面 這 個 示 例 把 當 前 所 有 已 加 載 的 窗 體 的 標 題 填 入 列 表 框 。 
    Private Sub Form_Activate () 
     Dim I ' Declare variable. 
     ' Refill list (in case an instance was added or removed). 
     lstForms.Clear ' Clear list box. 
     For I = 0 To Forms.Count - 1 
     lstForms.AddItem Forms(I).Caption 
     Next I 
    End Sub 
    不 過 沒 有 加 載 的 窗 體 是 無 法 使 用 這 個 方 法 訪 問 的 。 
<END>