try Dim animage As Image For Each files As String In My.Computer.FileSystem.GetFiles(path of directory) If IO.Path.GetExtension(files) = ".jpg" Then animage = Image.FromFile(files) ImageList1.Images.Add(animage) End If Next Catch ex As Exception MessageBox.Show(ex.Message) End Try