VB Code - Mengisi Seluruh Fonts Ke Dalam Listbox

Di bawah ini merupakan fungsi VB6 untuk mengisi seluruh fonts yang ada dalam komputer Anda ke dalam objek ListBox pada dasarnya Anda dapat menggunakan objek selain ListBox seperti ListView, TreeView, dll.

Public Function LoadAllFonts(lst As Control)
    Dim i As Integer
    For i = 1 To 1000
        If Screen.Fonts(i) = "" Then Exit For
        lst.AddItem Screen.Fonts(i)
    Next i
End Function

Contoh penggunaan fungsi VB6 di atas:

Private Sub Form_Load()
    LoadAllFonts List1
End Sub