Private Sub Form_Load()
  ' einmal z.B. in Form_Load ausführen, dass Ausgabe nicht
  ' gleich verloren geht
  Picture1.AutoRedraw = True
  ' x-Position fuer Ausgabe
  Picture1.CurrentX = 20
  ' y-Position fuer Ausgabe
  Picture1.CurrentY = 10
  ' Text ausgeben
  Picture1.Print "Test"
  ' TextWidth & TextHeight geben die Breite bzw. Höhe
eines Textes zurück
End Sub