Listview com imagelist erro ao carregar imagem

Ola,

estou trabalhando em um visualizador de imagens e utilizo um listview para lista-las e este listview é populado pelas imagens de um imagelist que é populado em tempo de execução com imagens de um banco de dados. até ai tudo bem.
o problema é o seguinte, quando mudo de um grupo de imagens de um paciente para outro as imagens no listview que no primeiro paciente eram small com legenda, passam a ser grandes sem legenda.
o problema não é o tamanho da imagem de um paciente ou outro, pois quando inicio com um paciente diferente o tamanho é normal(pequena) e o seguinte a imagem fica grande e vice-versa.
uso os seguintes códigos para linkar o listview com o imagelist
lear
Set ListView4.SmallIcons = Me.ImageList1
Set ListView4.Icons = Me.ImageList1

para popular o listview uso
Set listafotos = ListView4.ListItems.Add(picxx, , tbfotos!Datainsercao, ImageList1.ListImages(picxx).Index)
listafotos.SubItems(1) = tbfotos!descricao

e para poder atribuir novo grupo de imagens os codigos abaixo para limpar o listview e o imagelist.
ListView4.SmallIcons = Nothing
ListView4.Icons = Nothing
ImageList1.ListImages.Clear

como posso resolver este problema?

obrigado pela atenção.