Private Sub Form_Activate()
  Picture1.Font = "Times New Roman"
  Picture1.FontSize = 15
  Picture1.Print "Times New Roman"
  Picture1.Font = "Courier New"
  Picture1.FontSize = 15
  Picture1.Print "Courier New"
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...