Найти черный пиксель на всем изображении в PictureBox - VB

Формулировка задачи:

Нужно найти черный пиксель НА ВСЕМ ИЗОБРАЖЕНИИ В Picturebox Вот так работает но только когда я заливаю Picturebox в черный цвет

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
If GetPixel(Picture1.hdc, x, y) = 0 Then
Text1.Text = "blacK"
End If
End Sub

А когда загружаю картинку в Picturebox он не находит Пытался сделать так но тож не работает помогите реализовать рабочий код замучался уже весь гугл перерыл уже больше недели ищу ничего( спасибо надеюсь поможете

Private Sub Command2_Click()
Dim xpos As Long
Dim ypos As Long
 
For xpos = 0 To Picture1.Width - 1
If GetPixel(Picture1.hdc, xpos, ypos) = 0 Then
Text1.Text = "blacK"
End If
Next xpos
For ypos = 0 To Picture1.Height - 1
If GetPixel(Picture1.hdc, xpos, ypos) = 0 Then
Text1.Text = "blacK"
End If
End Sub

Решение задачи: «Найти черный пиксель на всем изображении в PictureBox»

textual
                            Листинг программы 
                        

                            Private Sub Command2_Click()
 
Dim xpos As Long
Dim ypos As Long
 
For xpos = 0 To Picture1.Width - 1
   For ypos = 0 To Picture1.Height - 1
     If GetPixel(Picture1.hdc, xpos, ypos) = 0 Then
           Text1.Text = "blacK"
     End If
   Next
Next
 
End Sub
                        