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

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.