'Benötigt werden: 1 Commandbutton, 1 Picturebox
Private Sub Form_Load()
 
Dim Out$
 
Me.ScaleMode = vbPixels
 
If Command1.Style = 0 Then MsgBox "Style-Eigenschaft auf 1!"
Command1.Caption = ""
Command1.Enabled = False
Out = "Beispieltext"
With Picture1
  .Visible = False
  .ScaleMode = vbPixels
  .BorderStyle = vbBSNone
  .AutoRedraw = True
  .Move 0, 0, .TextWidth(Out), .TextHeight(Out)
  .ForeColor = vbRed
  .BackColor = vbButtonFace
  Picture1.Print Out
  Set Command1.DisabledPicture = .Image
  .Cls
End With
 
End Sub

Gruss,

Zardoz