Сравните два изображения, чтобы найти различия

Question

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

«Метод или элемент данных не найден».

Понятия не имею, почему я его получил.

За любую помощь, предложение, спасибо заранее.

Private Sub cmdGo_Click()

Dim wid As Integer
Dim hgt As Integer
Dim are_identical As Boolean
Dim X As Integer
Dim Y As Integer

    Screen.MousePointer = vbHourglass
    DoEvents

    ' Load the images.
    pic1.Picture = LoadPicture("d:\face2.bmp")
    pic2.Picture = LoadPicture("d:\face2.bmp")

    ' Size the difference image.
    wid = Min(pic1.ScaleWidth, pic2.ScaleWidth)
    hgt = Min(pic1.ScaleHeight, pic2.ScaleHeight)
    picResult.Width = wid + (picResult.Width - picResult.ScaleWidth)
    picResult.Height = wid + (picResult.Height - picResult.ScaleHeight)

    ' Create the difference image.
    are_identical = True
    For X = 0 To wid - 1
        For Y = 0 To hgt - 1
            If pic1.POINT(X, Y) = pic2.POINT(X, Y) Then
                picResult.PSet (X, Y), vbWhite
            Else
                picResult.PSet (X, Y), vbRed
                are_identical = False
            End If
        Next Y
    Next X

    If (pic1.ScaleWidth <> pic2.ScaleWidth) Or (pic1.ScaleHeight <> pic2.ScaleHeight) Then are_identical = False
    If are_identical Then
        MsgBox "The images are identical"
    Else
        MsgBox "The images are different"
    End If
    Screen.MousePointer = vbDefault
End Sub