scrollbar question [anyone?]

[NeonBurner]

y is this not working anyone know

Public Sub HandleVScroll(ByVal sender As System.Object, ByVal se As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll
        ' Creates a graphics object and draws a portion
        ' of the image in the PictureBox. 
        Dim g As Graphics = PB.CreateGraphics()
        g.DrawImage(PB.Image, New Rectangle(0, 0, _
            PB.Width - HScrollBar1.Width, _
            PB.Height - VScrollBar1.Height), _
            New Rectangle(HScrollBar1.Value, VScrollBar1.Value, _
            PB.Width - HScrollBar1.Width, _
            PB.Height - VScrollBar1.Height), GraphicsUnit.Pixel)
    End Sub