Как создать перемещаемый график?

Sub DrawGraphic()
    
    Me.picMain.Cls
         
    Me.picMain.Scale (-0.1, 2)-(10, -2)
         
    For x# = 0 To 10 Step 0.01
        y# = Sin(3 * x#) * Exp(-0.3 * x#)
        Me.picMain.PSet (x#, y#), RGB(255, 0, 0)
    Next x#
 
End Sub
 
Private Sub Form_Resize()
        dx# = Me.picMain.Left
        dy# = Me.picMain.Top
        Me.picMain.Width = Me.ScaleWidth - 2 * dx#
        Me.picMain.Height = Me.ScaleHeight - 2 * dy#
        DrawGraphic
End Sub

Option Explicit
 
Dim WithEvents pb As PictureBox
Dim w&, h&, ww&
 
Private Sub Form_Load()
    ChDir App.Path
    Set pb = Controls.Add("vb.PictureBox", "pb"): With pb
        .AutoSize = 1
        .AutoRedraw = 1
        .BorderStyle = 0
        .Picture = LoadPicture("0.jpeg")
        .Visible = 1
    End With
    h = pb.Height + (Height - ScaleHeight)
    w = (pb.Width + (Width - ScaleWidth)) / 2
    ww = -w
End Sub
 
Private Sub Form_Resize()
    WindowState = 0
    Move Left, Top, w, h
End Sub
 
Private Sub pb_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Static l&, ll&
    If Button Then
        ll = pb.Left + (X - l)
        If ll <= 0 And ll >= ww Then _
        pb.Left = ll
    Else
        l = X
    End If
End Sub