' Controls: Picturebox
Dim i&, j&, Zeichen$, SW&, SH&, P&
 
Zeichen = "X"
P = 0
With Picture1
  .ScaleMode = vbPixels
  .BorderStyle = vbBSNone
  .FontName = "Courier New" 'Zeichensatz
  .FontSize = 8 'Schriftgröße
  .BackColor = vbBlack
  .ForeColor = vbWhite
  SW = .TextWidth(Zeichen)
  SH = .TextHeight(Zeichen)
  .Move .Left, .Top, CLng(Me.ScaleX(SW, vbPixels)), CLng(Me.ScaleY(SH, _
    vbPixels))
  .AutoRedraw = True
  .Cls
  Picture1.Print Zeichen
  For i = 0 To SW - 1
    For j = 0 To SH - 1
      If .Point(i, j) = vbWhite Then P = P + 1
    Next j
  Next i
End With
MsgBox P & " Pixel"

Gruss,

Zardoz