如果我没理解错的话,楼主是想遍列工程中的窗体,但不知道是否只要列出窗体名称到A表就可以了吗,如果是这样的话可参照
Dim o As WinForm.FormFor Each o In Forms messagebox.Show(o.name) Next