Прокрутка колесом мыши изображения в PictureBox

Private Sub VScroll1_Change()
Picture3.Top = -VScroll1.Value
End Sub
 
Private Sub VScroll1_Scroll()
Picture3.Top = -VScroll1.Value
End Sub

Private Sub VScroll1_Change()
Picture3.Top = -VScroll1.Value
End Sub
 
Private Sub VScroll1_Scroll()
Picture3.Top = -VScroll1.Value
End Sub

Option Explicit
Dim cPic As StdPicture
' Картинку тут будем крутить от 0 до -319 (всего 320)
 
Private Sub DrawFit(ByVal hDC As Long, ByVal cPic As IPicture, ByVal NewX As Long)
    Dim lsw As Long
    Dim lsh As Long
    
    lsw = CLng(((cPic.Width / 2540) * 1440) / Screen.TwipsPerPixelX)
    lsh = CLng(((cPic.Height / 2540) * 1440) / Screen.TwipsPerPixelY)
    
    cPic.Render hDC, -NewX, 0, lsw, lsh, 0, cPic.Height, cPic.Width, -cPic.Height, ByVal 0&
End Sub
 
Private Sub Paint_Picture()
    Dim NewValueX As Long
    
    NewValueX = ctlFlatSB1.Value
    Me.Caption = NewValueX
    
    Picture1.Cls
    DrawFit Picture1.hDC, cPic, NewValueX
End Sub
 
Private Sub ctlFlatSB1_Change()
    Paint_Picture
End Sub
 
Private Sub ctlFlatSB1_Scroll()
    Paint_Picture
End Sub
 
Private Sub Form_Load()
    Set cPic = LoadPicture(App.Path & "\123456789.jpg")
    ctlFlatSB1.Max = Picture1.ScaleWidth
    Paint_Picture
End Sub