Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
Dim n(1000, 1000) As Long
For i = 0 To 1000 Step 10
For j = 0 To 1000 Step 10
n(i, j) = GetPixel(Picture1.hdc, i, j)
Next
Next
For i = 0 To 1000 Step 5
For j = 0 To 1000 Step 5
Me.CurrentX = i
Me.CurrentY = j
If n(i, j) = 图片数字的颜色值(long) Then
Me.Print "●"
End If
Next