Dim Ausgabe$
 
Ausgabe = "Beispieltext"
With Picture1
  .ForeColor = vbWhite 'Schriftfarbe
  .AutoRedraw = True
  .FontTransparent = True
  .ScaleMode = vbPixels
  .CurrentX = (.ScaleWidth - .TextWidth(Ausgabe)) \ 2
  .CurrentY = (.ScaleHeight - .TextHeight(Ausgabe)) \ 2
  Picture1.Print Ausgabe
  SavePicture .Image, "C:\EinBild.bmp"
End With

Gruss,

Zardoz