Вопрос по работе с Picture - VB

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

На форме есть Picture. Необходимо для анализа изображения поместить его в массив. Делаю: Picture1.Picture = LoadPicture('1.bmp') Picture1.Scale = vbPixel а вот дальше Picture1.Point(x, y) все время возвращает -1. Что делать?

Решение задачи: «Вопрос по работе с Picture»

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

                            Private Sub Form_Load()
    Dim Matrix() As Long
    Dim Ширина As Long
    Dim Высота As Long
'    
    With Picture1
        .AutoRedraw = True
        .ScaleMode = vbPixels
        .AutoSize = True
        .Picture = LoadPicture('1.bmp')
        Ширина = .ScaleWidth
        Высота = .ScaleHeight
        ReDim Matrix(Ширина * Высота)
        For i = 1 To Ширина
            For j = 0 To Высота - 1
                Matrix((i - 1) * Высота + j) = .Point(i - 1, j)
                ' Выводим в окно отладки:
                Debug.Print 'Точка (' & (i - 1) & ', ' & j & '):' & _
                            Matrix((i - 1) * Высота + j)
            Next j
        Next i
    End With
End Sub
                        