Загрузка случайной картинки из папки - VB

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

здравствуйте. Имеется папка, в которой хранятся картинки с именами по порядку 1.jpg 2.jpg и так далее. Общее количество картинок неизвестно(они будут добавляться или уменьшаться). Надо чтобы при нажатии на кнопку, в объекте Image была показана картинка выбранная рандомно. (т.е у нас в данный момент в папке хранится 20 картинок, и из этих картинок выбралась случайная, но т.к. картинки будут добавляться надо чтобы программа как-то посчитала количество этих картинок в данный момент). Как-то так. Буду признателен, если будет код.

Даже если зная что чтсло картинок будет неизменное:

Image1.Picture = LoadPicture("C:\base_descriptive_geometry\3\1.jpg")

это просто вставится 1.jpg а надо как-то так, но не работает, т.к. мы прописываем фактическое имя файла

   i = (Int(Rnd() * 11))
Image1.Picture = LoadPicture("C:\base_descriptive_geometry\3\i.jpg")

Решение задачи: «Загрузка случайной картинки из папки»

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

                            Dim p$()
Dim k%, n%, i%
Dim fn$, fn1$
Dim tr As Boolean
Private Sub Command1_Click()
 
If Not (tr) Then
   tr = True
   fn = App.Path & "\MyFld"
   fn1 = Dir(fn & "\*.jpg", vbNormal)
     
     If fn1 = "" Then
        MsgBox "Not ": tr = False: Exit Sub
     End If
     
   k = 1: ReDim Preserve p(k): p(k) = fn1
   Do While fn1 <> ""
      k = k + 1: ReDim Preserve p(k): p(k) = fn1
      fn1 = Dir()
   Loop
   
   n = k
End If
 
If k > 1 Then
   Do
     i = Int(Rnd * n) + 1
   Loop While p(i) = ""
   
   k = k - 1
   Image1.Picture = LoadPicture(fn + "\" & p(i))
   p(i) = ""
Else
   tr = False
   Image1.Picture = LoadPicture
End If
 
End Sub
                        