Dim f As System.Drawing.Text.InstalledFontCollection = New System.Drawing.Text.InstalledFontCollection Dim fFamily As FontFamily For Each fFamily In f.Families lst.Items.Add(fFamily.Name) Next