For Each Components (gb)

Dim hComponent As Component
For Each hComponent In Components
  ...
Next

Enumerates all components loaded by the interpreter.