Работа с изображением в Visual Basic

[Manul_87]

Помогите пожалуйста разобраться с такой задачей в Visual Basic.
Необходимо чтобы BMP изображение, загружаемое через File1 (FileListBox) загружалось в форму далее оно должно выводится в Picture1
По аналогии с открытием текстового файла я написал такой код:

Private Sub File1_Click()
file = File1.Path & File1.FileName
Dim a As Byte
n1 = FreeFile
Open file For Binary As n1
  Get n1, 1, a
  Picture1 = a
Close n1
End Sub

Однако при Picture1 = a выдаёт ошибку.
Подскажите что не так с кодом?

Далее программа должна посчитать количество пикселей (т.е. размер изображения в формате (x, y) в изображении пройти по ним и выдать цвет каждого пикселя. Это как я понимаю делается при помощи PictureBox.Point(x,y) циклом по всем координатам.

[EducatedFool]

Так, что ли, надо?



Тогда всё просто:

Private Sub Dir1_Change(): Me.File1.Path = Me.Dir1: End Sub
Private Sub Drive1_Change(): Me.Dir1.Path = Me.Drive1.Drive: End Sub
Private Sub File1_Click()
    On Error Resume Next
    Me.Picture1.Picture = LoadPicture(Me.File1.Path & "\" & Me.File1)
End Sub

Private Sub Picture1_Change()
    On Error Resume Next
    Me.Text1.Text = "Размер изображения:" & vbNewLine & vbNewLine & _
    "ширина = " & Me.Picture1.Picture.Width & vbNewLine & _
    "высота = " & Me.Picture1.Picture.Height
    For x = 1 To Me.Picture1.Picture.Width
        For y = 1 To Me.Picture1.Picture.Height
            'Debug.Print "Цвет пиксела с координатами X=" & x & ",  Y=" & y & ":  " & Me.Picture1.Point(x, y)
        Next
    Next
End Sub

Результат: (ОЧЕНЬ МНОГО строк типа таких)

Цвет пиксела с координатами X=6, Y=2152: 16711422
Цвет пиксела с координатами X=6, Y=2153: 16777215
Цвет пиксела с координатами X=6, Y=2154: 16777215

[Manul_87]

Спасибо огромное!