For Each Font As System.Drawing.FontFamily In System.Drawing.FontFamily.Families System.Console.WriteLine(Font.Name) Next