Win2k、VB6SP6で、Imageコントロールの表示方式なんだけど、
画像がコントロールより大きい時は縦横比をそのままでコントロール内に収まるように縮小、
画像がコントロールより小さい場合は等倍表示にしたいんだけど、VBAで使えてた

If Image1.Width < Image1.Picture.Width Or Image1.Height < Image1.Picture.Height Then
  Image1.PictureSizeMode = fmPictureSizeModeZoom
Else
  Image1.PictureSizeMode = fmPictureSizeModeClip
End If

が使えないんだよね。(上記は実際には* 567 / 15000が入る)
調べてみるとStretchプロパティがPictureSizeModeプロパティに近いんだけど、
PictureSizeMode = fmPictureSizeModeClip → Stretch = False
PictureSizeMode = fmPictureSizeModeStretch → Stretch = True
の設定は出来ても、fmPictureSizeModeZoomの設定が出来ないみたい。

PictureSizeMode = fmPictureSizeModeZoomと同じ状態を実現する為には
Stretch = TrueでImageコントロールのサイズ自体を変えていくしかないのかな?
激しく面倒なのでPictureSizeMode = fmPictureSizeModeZoomと同じような
設定を知ってる方居ましたら教えてください。
PictureSizeMode = fmPictureSizeModeZoomはStretch = Trueの縦横比固定版で
定義としては｢縦横比を固定したまま、イメージをコントロールのサイズに拡大または縮小する｣
という感じです。