Смена img

Option Explicit 'Требование обязательного объявления переменных в этом модуле
Option Compare Text 'Заявление компилятору игнорировать разницу величины букв  - например FORMAT и FoRmAt
Dim v, i&, ff$() 'Глобальные переменные
 
Private Sub Form_Load()
    ChDir App.Path 'Объявляем текущую папку (App.Path - это папка с программой)
    With CreateObject("scripting.filesystemobject") 'Инициализируем библиотеку "scripting.filesystemobject"
        With .GetFolder(App.Path) 'Заходим в папку ..
            '
            '- Задаём цикл
            '
            For Each v In .Files ' Просматриваем все файлы в папке (в папке с программой)
                Select Case Right$(v, 4)
                Case ".jpg", "jpeg" ' Выбираем и запоминаем только этот формат (обычный формат изображения)
                    ReDim Preserve ff(i) 'Увеличеваем массив на значение i
                    ff(i) = v: i = i + 1 ' прибавляем i (INDEX - индекс массива)
                End Select
            Next: i = 0 'Сброс глобальной переменной
        End With
    End With
    Command1_Click 0 'Эмулируем действие загрузки первой картинки
    Me.Caption = "Выбор картинки" 'Пишем в заголовке окна то что требуется ...
End Sub
 
Private Sub Command1_Click(Index As Integer)
 
    'Действия над командами (группой кнопок)
    'у нас в группе кнопка 0 и кнопка 1
    'Где логические выражения это и активность кнопки и действия над переменными
 
    Dim ii& 'Локальная переменная действующая в рамках только этой функции
 
    ii = i + Index * 2 - 1 'Выражение
    
    Command1(0).Enabled = ii > 0 'Активность кнопки это результат логического выражения YES\NO
    Command1(1).Enabled = ii < UBound(ff)
    
    'Если кнопка в неактивной фазе, то переменная будет выравнена к началу (к концу) списка
    
    If Not Command1(0).Enabled Then
        ii = 0
    ElseIf Not Command1(1).Enabled Then
        ii = UBound(ff)
    End If
    'Напомню, переменная ff - это массив с файловыми адресами изображений
    i = ii: Set Image1.Picture = LoadPicture(ff(i))
    Label1.Caption = ff(i)
End Sub