font size in vb6

I am trying to change the height and name of the font in vb6 to print out various sizes.
I found this for vb5 and looks like exactly what I want but does not seem to work for vb6.
dim pr as New Printer.
dim pFont as New Font ("Arial",14)
pr.Font=pFont
pr.print ("This will print in 14 point")
pr.enddoc()

Any help would be greatly appreciated.

Bill Miller