VB 中怎么输出一个图片所有黑色点的坐标呢？ 小弟我哪地方做错了

VB 中如何输出一个图片所有黑色点的坐标呢？ 我哪地方做错了？
图片是512*512的

Picture1.ScaleMode = 3
Dim x As Single
Dim y As Single
For x = 1 To 512
 For y = 1 To 512
  If Picture1.Point(x, y) = &H0 Then
  Open "c:\11.csv" For Append As #1
  Write #1, x, y, " "
  Close
   
   
  End If
  Next
  Next
  MsgBox "end"


[解决办法]
你不是已经做出来了吗
[解决办法]
你确定图片中黑色点都是&h0？如&h101010看起来也似黑色。严格的说，必须先将图片灰度化，然后二值化（0,255）再对点进行判断