Dim FileList As List
FileList = File.ListFiles(File.DirInternal)
Dim ListImage As List
ListImage.Initialize
For i = 0 To FileList.Size-1
Dim FileName As String = FileList.Get(i)
If FileName.Contains(".jpg") Then
Dim img As Bitmap = LoadBitmap(File.DirInternal,FileName)
ListImage.Add(img)
End If
Next