Private Sub File1_Click()
On Error GoTo fileError

Renamer.ImageList1.ListImages.Clear 'Чистим имаджлист
Set picView.Picture = Nothing

s = CStr(File1.List(File1.ListIndex))
sFirstPath = CStr(Renamer.File1.Path)


Renamer.ImageList1.ListImages.Add i, , LoadPicture(sFirstPath & "\" & s)

Set picView.Picture = ImageList1.ListImages(i).Picture
Exit Sub

fileError:
MsgBox Err.Description, vbExclamation, "Ошибка"
Renamer.ImageList1.ListImages.Clear
Set picView.Picture = Nothing
End Sub

Обычный саб открытия картинки через PictureBox посредством ImageList. При открытии некоторых jpg файлов пишет ошибку- Out of Memory. Что за штука такая и почему она возникает может кто объяснить?? Ведь имаджлист я в начале очищаю, почему не хватает памяти?