[sendbad100]

وعليكم السلام ورحمة الله وبركاته 

جرب هذه الطريقة 

كود :

Private Sub GetFilesName(zFolderPath As String, zType As String)

If Trim$(zFolderPath) = "" Then Exit Sub

If Right(zFolderPath, 1) <> "\" Then zFolderPath = zFolderPath & "\"
                                                       
Dim zFiles As String
Dim I As Long
Dim n As Long
zFiles = Dir$(zFolderPath & "*." & zType)
DoEvents

Do While Len(zFiles)
             
  I = I + 1
      List1.AddItem Trim$(zFiles)
  zFiles = Dir$
  DoEvents
         
Loop

End Sub

وهكذا تستدعى 

كود :

Private Sub Command1_Click()

List1.Clear
'هذا كود جلب الصور
GetFilesName App.Path & "\Image\", "bmp"
'اذا تريد اضافة نوع صور اخر او اي ملف
GetFilesName App.Path & "\Image\", "jpg"



'لجلب جميع الاملفات
'GetFilesName App.Path & "\Image\", "*"


'وتستطيع اضافة اي نوع بنفس الطريقة المسار  ثم الامتداد
End Sub

وضعت لك مثال  للتوضيح اكثر في المرفقات

---

كل ما قمت به هو تعديل بسيط على كود استاذي / أحمد منصور

---

لم اتمكن من رفع المثال  
لا ادري ما السبب  يتحمل وكل شي تمام 
وعندما اضف الرد لا اجد المرفق