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

Image1.Picture = ImageList1.ListImages(1).Picture

Private Sub VScroll1_Change()
    VScroll1.Min = 1
    VScroll1.Max = 4
    Image1.Picture = ImageList1.ListImages(VScroll1.Value).Picture
End Sub

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