La imagen del ImageList no se ve bien
 

Hola...

Tengo un control ImageList con una Imagen y la puse como tamaño 16x16

Cargo un Mshflexgrid y pone la imagen desde el disco, si la quiero cargar desde el Imagelist se ve muy grande (se encima una en otra).. les muestro como lo hago :

Traigo el recorset y lo cargo al Mshflexgrid asi :

Do While Not Rs.EOF
For G = 0 To Registros - 1
Me.MSHFlexGrid1.TextMatrix(UltimoReg, 0) = Rs("IdGrupo")
Me.MSHFlexGrid1.TextMatrix(UltimoReg, 1) = Rs("Grupo")
Me.MSHFlexGrid1.TextMatrix(UltimoReg, 2) = Rs("Tipo")
Me.MSHFlexGrid1.TextMatrix(UltimoReg, 3) = Format(Rs("Colegiatura"), "##,##0.00")

'*** ESTO FUNCIONA BIEN ****
Me.MSHFlexGrid1.Col = 4
Me.MSHFlexGrid1.Row = UltimoReg
Set Me.MSHFlexGrid1.CellPicture = LoadPicture("C:\noico.gif")
Me.MSHFlexGrid1.CellPictureAlignment = 4

'*** ASI LAS IMAGENES SE VEN MUY GRANDES Y SE ENCIMAN***
Me.MSHFlexGrid1.Col = 4
Me.MSHFlexGrid1.Row = UltimoReg
Set Me.MSHFlexGrid1.CellPicture = Me.ImageList1.ListImages(1).Picture
Me.MSHFlexGrid1.CellPictureAlignment = 4

UltimoReg = UltimoReg + 1
Rs.MoveNext
Next

Loop



¿que estoy haciendo mal ?

Gracias por su tiempo
Saludos
Jose A. Castrejon