For Each Fonts (gb.qt4)

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

Enumera le famiglie dei font installate sul sistema.