点击下载此示例

演   示:

部分代码:

Private Sub Form_Load()

Dim accObject As Access.AccessObject
    'Fill list with forms.
    For Each accObject In CurrentProject.AllForms
        Me.listObjects1.AddItem accObject.Name
    Next

End Sub