DIM
aString
AS
String
FOR EACH
aString
IN
Fonts
...
NEXT
Перечисляет семейства шрифтов, установленных в вашей системе.