Поиск пикселя черного цвета в PictureBox (VB6)

Option Explicit
 
Private Type BITMAPINFOHEADER
biSize As Long
biWidth As Long
biHeight As Long
biPlanes As Integer
biBitCount As Integer
biCompression As Long
biSizeImage As Long
biXPelsPerMeter As Double
biClrUsed As Double
End Type
 
Private Type BITMAPINFO
bmiHeader As BITMAPINFOHEADER
bmiColors As Long
End Type
 
Private Declare Function SetDIBitsToDevice Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, ByVal dx As Long, ByVal dy As Long, ByVal SrcX As Long, ByVal SrcY As Long, ByVal Scan As Long, ByVal NumScans As Long, Bits As Any, BitsInfo As BITMAPINFO, ByVal wUsage As Long) As Long
Private Declare Function GetDIBits Lib "gdi32" (ByVal aHDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long
 
Const WW As Long = 1024, HH As Long = 768
 
Dim FPS As Long
Dim StrFPS As String
Dim bi32BitInfo As BITMAPINFO
Dim cBuf() As Long
 
Private Sub Form_Load()
Move Left, Top, Width - Screen.TwipsPerPixelX * (ScaleWidth - WW), Height - Screen.TwipsPerPixelY * (ScaleHeight - HH)
pic.Move 0, 0, WW, HH
Show
 
ReDim cBuf(WW - 1, HH - 1) As Long
With bi32BitInfo.bmiHeader
.biBitCount = 32
.biPlanes = 1
.biSize = Len(bi32BitInfo.bmiHeader)
.biWidth = WW
.biHeight = -HH
.biSizeImage = 4 * (WW * HH)
End With
 
While DoEvents
Render
FPS = FPS + 1
Wend
End Sub
 
Private Sub Render()
pic.Line (0, 0)-(WW, HH), 0, BF
pic.CurrentX = 8
pic.CurrentY = 8
pic.Print StrFPS;
GetDIBits hDC, pic.Image.Handle, 0, HH, cBuf(0, 0), bi32BitInfo, 0
SetDIBitsToDevice hDC, 0, 0, WW, HH, 0, 0, 0, HH, cBuf(0, 0), bi32BitInfo, 0
End Sub
 
Private Sub Timer1_Timer()
StrFPS = FPS
FPS = 0
End Sub