Printer Fonts

I can't rember this. I'm trying to load all the fonts that my printer can use into a list box. Anyone?

Code:

---

For x = 0 to Printer.FontCount-1
  List1.AddItem Printer.Fonts(x)
Next x

---

Thank U