Visual Basic - Recorrer controles de un formulario

Public Function mostrarNombreControles()

  Dim obj As AccessObject, dbs, control As Object

  Dim controlesForm As control

  Set dbs = Application.CurrentProject

  For Each obj In dbs.AllForms

    nombre = obj.name

    For Each controlesForm In obj.Controls

            MsgBox control.name

    Next

  Next

End Function

Public Function mostrarNombreControles()

   Dim obj , dbs, control As Object

   Dim controlesForm As control

   Set dbs = Application.CurrentProject

   For Each obj In dbs.AllForms

      nombre = obj.name

      For Each controlesForm In obj.Controls

         MsgBox controlesForm.name

      Next

   Next

End Function

Public Function mostrarNombreControles()

    Dim obj , dbs, controlForm As Object

    Set dbs = Application.CurrentProject

    For Each obj In dbs.AllForms

        nombre = obj.name

        For Each controlForm In obj.Controls

            MsgBox controlForm.name

        Next

    Next

End Function