Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
  Handles Button1.Click
        Dim oaccess As New Microsoft.Office.Interop.Access.Application
        Dim form As Microsoft.Office.Interop.Access.Form
        Try
            oaccess.Visible = False
            oaccess.OpenCurrentDatabase("c:\Temp\Forms.mdb", True)
            For Each form In oaccess.CurrentProject.AllForms
                oaccess.DoCmd.OpenForm(form.Name, AcFormView.acDesign, , , , _
                  AcWindowMode.acHidden)
                Me.ListBox1.Items.Add(form.Caption)
            Next
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.OkOnly, "TEST")
        End Try
    End Sub