<code><font color=green>' Scrollbars bei Bedarf anzeigen</font>
Private Sub Picture_ShowScrollbars()
  Dim hVis As Boolean
  Dim vHis As Boolean
 
  <font color=green>' wenn imgPicture grösser als picContainer ist,
  ' entsprechend vertik. bzw. horiz. ScrollBars anzeigen</font>
  With picContainer
    VScroll1.Visible = (imgPicture.Height > .ScaleHeight)
    HScroll1.Visible = (imgPicture.Width > .ScaleWidth)
    picEdge.BorderStyle = 0
    picEdge.Visible = HScroll1.Visible Or VScroll1.Visible
 
    <font color=green>' Breite des horizontalen Scrollbalkens</font>
    HScroll1.Width = .ScaleWidth
 
    <font color=green>' Höhe des vertikalen Scrollbalkens</font>
    VScroll1.Height = .ScaleHeight
 
    <font color=green>' Scrollbalken positionieren</font>
    HScroll1.Left = 0
    HScroll1.Top = .ScaleHeight - HScroll1.Height
    VScroll1.Left = .ScaleWidth - VScroll1.Width
    VScroll1.Top = 0
 
    picEdge.Left = .ScaleWidth - VScroll1.Width
    picEdge.Top = .ScaleHeight - HScroll1.Height
    HScroll1.Width = picEdge.Left
    VScroll1.Height = picEdge.Top
 
    <font color=green>' Min/Max-Eigenschaften aktualisieren</font>
    VScroll1.Max = (imgPicture.Height - .ScaleHeight) + _
      HScroll1.Height
    HScroll1.Max = (imgPicture.Width - .ScaleWidth) + _
      VScroll1.Width
  End With
End Sub</code>

<code><font color=green>' Bild laden und anzeigen</font>
imgPicture.Picture = LoadPictrue("IrgendeinBild.jpg")
Picture_ShowScrollbars</code>