Dim fs, folder, files, file ' Filesystem

Private Sub Form_Load()

Set fs = CreateObject("Scripting.FileSystemObject")
Set folder = fs.GetFolder(App.Path & "\")
Set files = folder.files
For Each file In files
    DoEvents
    If Right(file.Name, 3) = "jpg" Then List1.AddItem file.Name
Next