<code><font color=#000099>Private</font> <font color=#000099>Sub</font> _
  Image_Display(<font color=#000099>ByVal</font> sImgFilename <font _
  color=#000099>As</font> <font color=#000099>String</font>)
  <font color=green>' Bild optimal in Image-Control anzeigen</font>
 
  <font color=#000099>Dim</font> lMaxWidth <font color=#000099>As</font> <font _
    color=#000099>Long</font>
  <font color=#000099>Dim</font> lMaxHeight <font color=#000099>As</font> <font _
  color=#000099>Long</font>
  <font color=#000099>Dim</font> bStretch <font color=#000099>As</font> <font _
  color=#000099>Boolean</font>
 
  <font color=green>' Maximale Größe</font>
  lMaxWidth = 100 * Screen.TwipsPerPixelX
  lMaxHeight = 150 * Screen.TwipsPerPixelY
 
  imgPicture.Visible = <font color=#000099>False</font>
  imgPicture.Picture = LoadPicture(sImgFilename)
  imgPicture.Stretch = SetPictureRatio(imgPicture, lMaxWidth, lMaxHeight)
  imgPicture.Visible = <font color=#000099>True</font>
 
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
<font color=#000099>Private</font> <font color=#000099>Function</font> _
  SetPictureRatio(img <font color=#000099>As</font> <font _
  color=#000099>Control</font>, <font color=#000099>ByVal</font> lMaxWidth _
  <font color=#000099>As</font> <font color=#000099>Integer</font>, <font _
  color=#000099>ByVal</font> lMaxHeight <font color=#000099>As</font> <font _
  color=#000099>Integer</font>) <font color=#000099>As</font> <font _
  color=#000099>Boolean</font>
  '
  '*** Größenverhältnis berechnen ***
  '
  <font color=#000099>Dim</font> bStretch <font color=#000099>As</font> <font _
    color=#000099>Integer</font>
  <font color=#000099>Dim</font> lWidth <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
  <font color=#000099>Dim</font> lHeight <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
 
  bStretch = <font color=#000099>False</font>
  lWidth = img.Width
  lHeight = img.Height
 
  <font color=#000099>If</font> lWidth > lMaxWidth <font _
    color=#000099>Or</font> lHeight > lMaxHeight <font color=#000099>Then</font>
    <font color=green>' Faktor 5%</font>
    <font color=#000099>While</font> lWidth > lMaxWidth <font _
      color=#000099>Or</font> lHeight > lMaxHeight
      lWidth = Int(lWidth / 100 * 95)
      lHeight = Int(lHeight / 100 * 95)
    <font color=#000099>Wend</font>
    img.Width = lWidth
    img.Height = lHeight
    bStretch = <font color=#000099>True</font>
  <font color=#000099>End</font> <font color=#000099>If</font>
 
  SetPictureRatio = bStretch
<font color=#000099>End</font> <font color=#000099>Function</font></code>