Из этой программы мы узнаем какие подчерки установлены на вашем компьютере! Уже знаем? Это хорошо! А для чего тогда прога? Для повышение уровня знаний языка Visual Basic! Не важно как это используется, важно просто это знать и в нужный момент применить! Начинаем, ну тут все как обычно! создайте форму, киньте туда ListBox, создайте процедуру Form_Load, дважды щелкнув по форме. Вот теперь можно приступать к програмированию!
Dim i As Integer
For i = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(i)
Next i
Все! Программа готова! Как вы заметили (если нет, то ничего страшного) в этой программе мы использовали оператор for, next это все часто используется с массивами! Если хотите узнать больше, то читайте следующею статью!