få lavet en combo med alle skrifttyper på systemet

Hejsa

Jeg vil gerne have udfyldt en comboBox med de skrifttyper der på systemet, gerne "tegnet", men det kan evt. komme senere.

Jeg er meget ny til VB.NET så bær over med mig..

Hvordan finder jeg ud af hvor mange fonte der er?
Hvordan får jeg udskrevet navnet på fonten?

Det virker nemlig ikke helt efter hensigten på denne måde:
        Dim I As Integer
        For I = 0 To 20 
            cboFonts.Items.Add(System.Drawing.FontFamily.Families(I))
        Next I