Private Sub PicLoad(pbox As PictureBox, ByVal index As Integer)
 
    Dim w As Long, h As Long, wp As Long, hp As Long
    On Error GoTo fehler
    If index < 1 Or index > pics.Count Then
        pbox.Visible = False: Exit Sub
    End If
    Set imgLoaded = LoadPicture(pics(index))
    'Bild in Picturebox einpassen
    w = imgLoaded.Width: h = imgLoaded.Height
    hp = pbox.Height: wp = w / h * pbox.Height
    If wp > pbox.Width Then
       hp = h / w * pbox.Width: wp = pbox.Width
    End If
 
    With pbox
       .AutoRedraw = True: .Picture = LoadPicture
       Call .PaintPicture(imgLoaded, 0, 0, wp, hp)
       .Picture = .Image: .AutoRedraw = False
       .Visible = True
    End With
fehler:
 
End Sub

Private Sub picscroller_Change()
    'Das neue Scroller-Event
    Call PicLoad(picBig, picscroller.Value)
    Call PicLoad(picNext, picscroller.Value + 1)
    Call PicLoad(picPrior, picscroller.Value - 1)
    Me.Caption = pics(picscroller.Value)
End Sub
 
Private Sub picNext_MouseDown(Button As Integer, _
     Shift As Integer, X As Single, Y As Single)
     Dim pv As Integer
     pv = picscroller.Value
     If pv < picscroller.Max Then picscroller.Value = pv + 1
End Sub
 
Private Sub picPrior_MouseDown(Button As Integer, _
     Shift As Integer, X As Single, Y As Single)
     Dim pv As Integer
     pv = picscroller.Value
     If pv > 1 Then picscroller.Value = pv - 1
End Sub