Sub Tonwerte_zählen() 
  Dim x As Integer, y As Integer, px_breite As Integer, px_höhe As Integer 
  Dim cModel As Long, c1 As Long, c2 As Long, c3 As Long, c4 As Long 
  Dim tonwert_array(3, 7) As Long 
  'cModel-> specifies the color model to use: 
  '• 3 = CMYK • 5 = RGB • 8 = black-and-white • 9 = grayscale 
  cModel = 3 
  px_breite = CorelScript.GetDocumentWidth() 
  px_höhe = CorelScript.GetDocumentHeight() 
  For y = 1 To px_höhe 
    For x = 1 To px_breite 
      CorelScript.GetPixelColor x - 1, y - 1, cModel, c1, c2, c3, c4 
      'vorkommnisse der versch. tonwerte in array aufsummieren; 
      'mit "\ 32" werden die Tonstufen von 256 auf 8 reduziert 
      tonwert_array(0, c1 \ 32) = tonwert_array(0, c1 \ 32) + 1 'cyan 
      tonwert_array(1, c2 \ 32) = tonwert_array(1, c2 \ 32) + 1 'mag 
      tonwert_array(2, c3 \ 32) = tonwert_array(2, c3 \ 32) + 1 'yell 
      tonwert_array(3, c4 \ 32) = tonwert_array(3, c4 \ 32) + 1 'k 
    Next x 
  Next y 
   
  'array testweise im Direktbereich ausgeben: 
  Debug.Print "Tonwertstufen" 
  Debug.Print " 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 |" 
  For x = 0 To 3  '0=c,1=m,2=y,3=k 
    Debug.Print "Werte für Farbe"; x 
    For y = 0 To 7 
      Debug.Print tonwert_array(x, y); "|"; 
    Next y 
    Debug.Print 
  Next x 
End Sub