For Each Classes (gb)

Dim hClass As Class
For Each hClass In Classes
  ...
Next

Enumerates all classes loaded by the interpreter.