Вывести графические файлы на компонент Image из компонента ImageList - VB

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

ребят подскажите как Вывести графические файлы на компонент Image из компонента ImageList. Смена файлов полосой прокрутки, не могу код написать,

Решение задачи: «Вывести графические файлы на компонент Image из компонента ImageList»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Function Open_Click()
    CommonDialog1.InitDir = "C:\Documents and Settings\ГЂГ¤Г¬ГЁГ*ГЁГ±ГІГ°Г*ГІГ®Г°\ГЊГ®ГЁ Г¤Г®ГЄГіГ¬ГҐГ*ГІГ»"
    CommonDialog1.Filter = "Г€Г§Г®ГЎГ°Г*Г¦ГҐГ*ГЁГҐ (*.jpg*)|*.jpg*|"
    CommonDialog1.ShowOpen
    On Error Resume Next
    List1.AddItem CommonDialog1.FileName
    List1.ListIndex = List1.ListCount - 1
    Image1.Picture = LoadPicture(List1.Text)
    End Function
Function Back_Click()
Dim iIndex As Integer
    For iIndex = List1.ListCount - 1 To 0
    Select Case True
                ListToText = List1.List(iIndex)
                Image1.Picture = LoadPicture(List1.Text)
    End Select
                   iIndex = iIndex - 1
End Function
Function Next_Click()
Dim iIndex As Integer
    For iIndex = 0 To List1.ListCount - 1
    Select Case True
                ListToText = List1.List(iIndex)
                Image1.Picture = LoadPicture(List1.Text)
    End Select
                Next iIndex
End Function
End Sub