a user enters the directory and extension that
then in turn loads the images into an array.
if the image width and height are larger than the
picture box, how can i resize the image to fit into
the picture box without becoming distorted?
i prefer not to use the image control in this situation.

i have tried to use the scalewidth and scaleheight of the
picture box, but can't seem to get it right,
any suggestions to point me in right direction?

thanks in advance,
larryn



'loop through the directory to find only the files
'that the user chose by extension and load them into
'an array
For Each MyFile In MyFolder.Files
If Mid$(MyFile.Name, Len(MyFile.Name) - 3) = Mid(sExt, 2, 4) Then
'e.g. Mid(sExt, 2, 4) = jpg
ReDim Preserve pics(iX)
pics(iX) = MyFolder & "\" & MyFile.Name
iX = iX + 1
End If
Next MyFile

'loop through all the images that were found by
'extension chosen and show them in the picure box
'according to the time chosen by user for interval
'between each image.
For iX = LBound(pics()) To UBound(pics())
Set Picture1.Picture = LoadPicture(pics(iX))

Sleep (lTime)
Next