[RESOLVED] avoid stretching an image but in a fixed size

[Saeed]

I am displaying an Image in a fixed size section of screen say X and Y
If the picture happend to be smaller or bigger I use stretch to fit it in my area of control.
Now the area could be wider or taller and .tretch woudl make it look unproportinal.

Without any mathematical calculation that I m trying to avoid,
is there any way that VB6 could resize that image keeping the same aspect ration and only use the area X & Y.
of course that may mean i ll endup with some extra space unused at the bottom or on the right which is undeatndable.

But can this be done via image property and VB6 ?
a sample of the code:

    Image1(j).Visible = True
                Image1(j).Width = getValue(str0, "Width")
                Image1(j).Height = getValue(str0, "Height")
                Image1(j).Stretch = True

                Image1(j).Top = Label6(j).Top + Label6(j).Height
                Image1(j).Left = Label6(j).Left