For Each Fonts (gb.qt4)

Dim aString As String
For Each aString In Fonts
  ...
Next

Enumerates the font families installed on the system.