For cl = 1 To 15
 
            z = 300
            CType(Me.Controls("Picturebox" & cl), PictureBox).Visible = True
            Bild = "C:\" & temp & ".jpg"
 
            If File.Exists(Bild) Then
                CType(Me.Controls("Picturebox" & cl), PictureBox).ImageLocation _
                  = Bild
 
            Else
                CType(Me.Controls("Picturebox" & cl), PictureBox).ImageLocation _
                  = ""
            End If
 
 
            Me.Controls("Picturebox" & cl).SendToBack()
            Me.Controls("Picturebox" & cl).Top = z - ((cl - 1) * 15)
            Me.Controls("Picturebox" & cl).Left = (50 + (cl - 1) * 150) - ((cl _
              - 1) * 40)
            Me.Controls("Picturebox" & cl).Height = 700 - (cl - 1) * 30
            Me.Controls("Picturebox" & cl).Width = 700 - (cl - 1) * 30
            abrunden(Me.Controls("Picturebox" & cl), 1, 1, Me.Controls( _
              "Picturebox" & cl).Width, Me.Controls("Picturebox" & cl).Height, _
              85)
 
          temp = temp +1 
 
        Next

Gruss Caddy