local lnFoto as Integer, loFoto as object select Fotos scan while idPersona = lnIdPersona lnFoto = lnFoto + 1 thisform.AddObject("Image"+transform(lnFoto),"Image") loFoto = evaluate( "Image"+transform(lnFoto) ) loFoto.Stretch = 1 && Isometric loFoto.Height = 100 loFoto.Width = 100 loFoto.Top = 10 + ( lnFoto-1 * 120 ) loFoto.Picture = Fotos.PathName loFoto.Visible = .t. endscanEste código está escrito directamente aquí, así que puede tener fallas, pero creo que se entiende la idea. Vas agregando controles Image y posicionándolos uno abajo del otro. Para disparar el formulario que muestre la misma imagen a tamaño completo lo ideal sería ir agregando controles de una subclase tuya que implemente esto en el evento Click.