Arbejde med formulartitler

Jeg vil gerne kunne hente samtlige formulartitler og putte dem over i en tabel, så man kan ændre dem ved at ændre navnet i tabellen.

Jeg prøver at modificere følgende kode, som jeg har fået af HugoPedersen, for at hente formulartitlen. Sidste linie, som er mit forslag, er den problematiske.:

  Dim strObject_Name As String
  Dim strObject_Title As String
  Dim obj As AccessObject
  Dim dbo As Object
  Dim ctl As Control
 
  Set dbo = Application.CurrentProject
 
'Proces all forms
  If dbo.AllForms.count > 0 Then
    For Each obj In dbo.AllForms
      strObject_Name = obj.Name
      SysCmd SYSCMD_SETSTATUS, "Finding language objects on form: " & strObject_Name
      DoCmd.OpenForm strObject_Name, acDesign
      strObject_Title = obj.Caption

Når jeg debugger giver sidste linie følgende fejlmeddelelse:
Object doesn't support this property or method
Er der nogen der kan hjælpe mig videre?