'Lege einen CommandButton und eine PictureBox in die Form.
 
Private Sub Command1_Click()
  Dim Breite&, Höhe&, Farbe&, X&, Y&, Punkte&, SRot#, SGrün#, SBlau#
 
  Me.MousePointer = vbHourglass
  With Picture1
  .BorderStyle = 0
  .ScaleMode = 3
  .AutoRedraw = True
  .AutoSize = True
  Set .Picture = LoadPicture("C:\Bild.bmp") 'Hier den Bildnamen einsetzen
  DoEvents
  Breite = .ScaleWidth
  Höhe = .ScaleHeight
  For Y = 0 To Höhe - 1
    For X = 0 To Breite - 1
      Farbe = .Point(X, Y)
      SRot = SRot + (Farbe And 255)
      SGrün = SGrün + ((Farbe \ 256) And 255)
      SBlau = SBlau + ((Farbe \ 65536) And 255)
    Next X
  Next Y
  .Visible = False
  End With
  Punkte = Breite * Höhe
  Me.MousePointer = vbDefault
  MsgBox "Rot:" & SRot / Punkte & vbCr & "Grün:" & SGrün / Punkte & _
  vbCr & "Blau:" & SBlau / Punkte, , "Farbwerte"
End Sub