Private Sub Form_Load()
Dim i         As Integer
Dim sPath     As String
Dim sPath2    As String
 
  sPath = "C:\Pictures"
  sPath2 = Dir(sPath & "\*.jpg")
  i = 1
  Do While sPath2 <> ""
    Call ImageList1.ListImages.Add(, sPath2, LoadPicture(sPath & "\" & sPath2))
    ListView1.Icons = ImageList1
    ListView1.ListItems.Add , , sPath2, i
    sPath2 = Dir
    i = i + 1
    DoEvents
  Loop
 
End Sub