here is my code to loop through images found
in a directory,

For iX = LBound(pics()) To UBound(pics())
Set Picture1 = LoadPicture(pics(iX))
Sleep (lTime)
Next

i am trying to get the image, if it is too large
to fit in the picture box, to reduce in size to
fit without becoming distorted, perhaps even being
centered within the picture box.

i have toyed with the width and height properties,
but can't seem to get it correct.

can someone help,
larryn