Распознание цвета в picturebox - VB

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

Единственное что смог найти в инете так это

Picture1.PSet(i, j), vbRed

пробывал зделать условие

If Picture1.PSet(i, j) = vbRed Then

ну естественно выдало ошибку( подскажите функцию для моей проблемки плиз! А задача у меня такая, есть некая картинка в pictureboxe которая помещается в массив, и мы должны в этом массиве найти красный круг, и определить его диаметр..

Решение задачи: «Распознание цвета в picturebox»

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

                            Private Sub Form_Load()
    Picture1.BackColor = vbWhite
    Picture1.ScaleMode = 3 'пиксельный 
End Sub
 
Private Sub Command1_Click()
    Min = 0
    Max = 0
    For X = 1 To Picture1.ScaleWidth - 1
        For Y = 1 To Picture1.ScaleHeight - 1
            t = Picture1.Point(X, Y)
            If t = vbRed Then
                List1.AddItem X & " " & Y & ":  " & Picture1.Point(X, Y)
                If Min = 0 Then Min = X
                If i > Max = 0 Then Max = X
            End If
        Next
    Next
    MsgBox "Диаметр круга(в пикселах) = " & Max - Min
End Sub
                        