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

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

тех.задание

Вывод графических файлов на компонент Image из компонента ImageList. Содержание файлов показывается поочередно при нажатии соответствующих кнопок панели инструментов (следующая, предыдущая). Картинка масштабируется по размеру компонента Image, который занимает всю форму и изменяет размеры при изменении размеров формы. Имя файла показывается в строке заголовка формы. если готовы помочь бесплатно, то буду очень рад) если же за оплату, то напишите пожалуйста цену.

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

textual
                            Листинг программы 
                        
Private k As Integer
 
Private Sub Command1_Click()
 
        k = 2
 
        Me.Timer1.Enabled = Not Me.Timer1.Enabled
        
        If Me.Timer1.Enabled Then
           Set Me.Image1.Picture = Me.ImageList1.ListImages(1).Picture
           Me.Command1.Caption = "Г‘ГІГ®ГЇ"
        Else
           Me.Command1.Caption = "ГЏГіГ±ГЄ"
        End If
 
End Sub
 
Sub SlideShow()
 
    Set Me.Image1.Picture = Me.ImageList1.ListImages(k).Picture
    
    k = k + 1
    
    If k > Me.ImageList1.ListImages.Count Then k = 1
 
End Sub
 
Private Sub Timer1_Timer()
 
    SlideShow
 
End Sub