Public Function CalculateWhitePixels(img As Bitmap) As Integer
 
   'Übergebenen Parameter (Bitmap) prüfen
   If img Is Nothing Then Return -1
   If Not img.PixelFormat = _
      Imaging.PixelFormat.Format8bppIndexed Then Return -1
 
   'Sperren der Bitmap-Daten und besorgen des Zeigers (Scan0)
   Dim data As System.Drawing.Imaging.BitmapData = _
        img.LockBits(New Rectangle(New Point(0, 0), img.Size), _
        Imaging.ImageLockMode.ReadOnly, Imaging.PixelFormat.Format8bppIndexed)
 
   'Die Zeile in der Bitmap (Stride) kann 1-3 Byte länger sein, 
   'als die tatsächliche Bildbreite (width)
   Dim offset As Integer = data.Stride - img.Width
 
   'Das Array für die Pixel-Bytes der Bitmap erstellen
   Dim bytes(data.Stride * img.Height - 1) As Byte
 
   'Kopieren der Bild-Pixel in das Array 
   System.Runtime.InteropServices.Marshal.Copy _
         (data.Scan0, bytes, 0, bytes.Length)
 
   Dim count As Integer = 0
   Dim pos As Integer = -1 'Index der Elemente im Bytes-Array
 
   For y As Integer = 0 To img.Height - 1
      For x As Integer = 0 To img.Width - 1
         pos += 1 'Indizierung des 1D-Array               
         'Hier werden offenbar die Bytewerte ab 128 gezählt 
         count += bytes(pos) >> 7
      Next x
      pos += offset 'ggf. Byte-Überschuß am Zeilenende 
   Next y
 
   'Sperre der Bilddaten aufheben
   img.UnlockBits(data)
 
   Return count
End Function