Dim regel As Byte
Dim x As Integer, y As Integer
Dim text As String
 
frmMain.Picture1.ScaleMode = 3
frmMain.Picture1.AutoRedraw = True
For y = 0 To frmMain.Picture1.ScaleWidth
  For x = 0 To frmMain.Picture1.ScaleHeight
    regel = (frmMain.Picture1.Point(x, y) And &HFF)
    text = Str(regel) + ";x=" + Str(x) + ";y=" + Str(y)
    MsgBox text
  Next
Next