Загрузка рандомной картинки в Picture из List - VB

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

Как загрузить рандомную картинку в Picture из List

Решение задачи: «Загрузка рандомной картинки в Picture из List»

textual
                            Листинг программы 
                        

                            Private Sub cmdPicLoad_Click()
  Dim sFn As String
  Dim iMax As Integer
  Dim iPos As Integer
  '
  filPic.Path = App.Path ' это чтобы картинки брала из той папки, где программа лежит
  filPic.Pattern = "*.jpg" ' только файлы с расширением JPG
  iMax = filPic.ListCount ' сколько файлов-картинок всего
  filPic.ListIndex = 0 ' указываем на первый файл в списке
  iMax = iMax - 1 ' номер последнего файла в списке
  Randomize Timer ' чтобы случайность была случайной
  iPos = Int(Rnd * (iMax + 1)) ' случайное число от 0 до iMax
  filPic.ListIndex = iPos ' загружать будем этот файл
  sFn = filPic.filename ' точно этот
  If Right$(App.Path, 1) = "" Then
    sFn = App.Path + sFn ' это на всякий случай, вдруг Вы в корневую папку программ поместите
  Else
    sFn = App.Path + "" + sFn
  End If
  picMain.Picture = LoadPicture(sFn) ' ВСЁ! ГРУЗИМ!
End Sub
                        