Public Sub t()
Dim x As Access.Controls 'CustomControls
Dim y As Access.Control
Set x = New CustomControls 'Implements Access.Controls, also has an enumerator
For Each y In x '438: Object doesn't support this property or method
Debug.Print y
Next
End Sub