Private Sub Test_Click()
Dim regel As Byte
Dim x As Integer, y As Integer
Dim text As String
 
For y = 0 To frmMain.Picture1.Picture.Height Step 100
  For x = 0 To frmMain.Picture1.Picture.Width Step 100
    regel = (frmMain.Picture1.Point(3, 1) And &HFF)
    text = Str(regel) + ";x=" + Str(x) + ";y=" + Str(y)
    MsgBox text
  Next
Next
 
End Sub