For Each Classes (gb)

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

Enumerates all classes loaded by the interpreter.