Private Sub Form_Activate()
  Dim i&, j&, Farbe&, Antwort As VbMsgBoxResult
  With Picture1
    .ScaleMode = vbPixels
    .AutoSize = True
    Set .Picture = LoadPicture("C:\EinBild.jpg")
    .AutoRedraw = True
    For i = 0 To .ScaleWidth - 1
      For j = 0 To .ScaleHeight - 1
        Farbe = .Point(i, j)
        Antwort = MsgBox("x= " & i & vbCr & "y= " & j & vbCr & "Farbe = " & _
          Farbe, vbOKCancel + vbInformation)
        If Antwort = vbCancel Then Exit For
      Next j
      If Antwort = vbCancel Then Exit For
    Next i
  End With
End Sub

Gruss,

Zardoz