Private Sub Form_Load()
Dim i As Integer
Dim lngLeft As Long
Dim lngTop As Long
Dim path As String
Dim b As String
Dim Files As String
Dim v As Integer
Dim lstItem As ListItem
Dim br As Long
path = "H:\0000-bmp\"
b = ".bmp"
 
i = 0
'// Für jedes ListItem im ListView...
 
Me.ScaleWidth = Screen.Width
contPicture.ScaleWidth = Me.ScaleWidth
For Each lstItem In frmMain.ListView1.ListItems
   If i > 0 Then
      '// Die erste Picturebox darf nicht
      '// geladen werden die gibt ja schon
      br = 1
      Load Picture1(i)
      Set Picture1(i).Container = contPicture
 
      lngLeft = Picture1(i - 1).Left + Picture1(0).Width + 120
      If lngLeft > contPicture.ScaleWidth - Picture1(0).Width Then
         '// rechter Rand erreicht
         lngLeft = Picture1(0).Left
         lngTop = Picture1(i - 1).Top + Picture1(0).Height + 120
      End If
 
      Picture1(i).Visible = True
      Picture1(i).Move lngLeft, lngTop
 
   End If
 
    br = lngTop
 
   Files = path & lstItem.SubItems(2) & b
   Picture1(i).Picture = LoadPicture(Files)
 
   '// Zähler erhöhen nicht vergessen
   i = i + 1
Next lstItem
contPicture.ScaleHeight = br + 120
Me.ScaleHeight = br + 240
 
End Sub
' ScrollBalken bei Bedarf anzeigen
Private Sub Form_Resize()
  Dim hVis As Boolean
  Dim vHis As Boolean
 
  If Me.WindowState <> 1 Then
    ' nur wenn Form nicht minimiert ist
 
    ' wenn die Form kleiner als die PictureBox ist
    ' entsprechend vertik. bzw. horiz. ScrollBars anzeigen
    VScroll1.Visible = (contPicture.Height > Me.ScaleHeight)
    HScroll1.Visible = (contPicture.Width > Me.ScaleWidth)
    Picture2.BorderStyle = 0
    Picture2.Visible = HScroll1.Visible Or VScroll1.Visible
 
    ' Breite des horizontalen Scrollbalkens
    HScroll1.Width = Me.ScaleWidth
 
    ' Höhe des vertikalen Scrollbalkens
    VScroll1.Height = Me.ScaleHeight
 
    ' Scrollbalken positionieren
    HScroll1.Left = 0
    HScroll1.Top = Me.ScaleHeight - HScroll1.Height
    VScroll1.Left = Me.ScaleWidth - VScroll1.Width
    VScroll1.Top = 0
 
    Picture2.Left = Me.ScaleWidth - VScroll1.Width
    Picture2.Top = Me.ScaleHeight - HScroll1.Height
    HScroll1.Width = Picture2.Left
    VScroll1.Height = Picture2.Top
 
    ' Min/Max-Eigenschaften aktualisieren
    VScroll1.Max = (contPicture.Height - Me.ScaleHeight) + _
      HScroll1.Height
    HScroll1.Max = (contPicture.Width - Me.ScaleWidth) + _
      VScroll1.Width
  End If
End Sub
Private Sub HScroll1_Change()
  contPicture.Left = -HScroll1.Value
End Sub
 
Private Sub HScroll1_Scroll()
  contPicture.Left = -HScroll1.Value
End Sub
 
Private Sub VScroll1_Change()
  contPicture.Top = -VScroll1.Value
End Sub
 
Private Sub VScroll1_Scroll()
 contPicture.Top = -VScroll1.Value
End Sub