Como selecionar fontes no objeto printer?

'FontCount - determina o número de fontes disponíveis no seu sistema

'numa listbox nomeada lstFonts

 

for i=0 to Printer.FontCount - 1
lstFonts.Additem Printer.Fonts(i)
next
lstfonts.listindex=0

Private Sub Form_Click ()
   Dim I as integer  'declara variáveis.
   Dim OldFont
   OldFont = Printer.FontName   ' Preserva a fonte original.
   Printer.FontName = "Times New Roman"  ' muda a fonte.
    for i=1 to 10
      Printer.Print " Teste "
   next
   Printer.FontName = OldFont   ' Restaura a fonte original.
End Sub