Проблема с рисованием на PictureBox с увеличением

   Dim g As System.Drawing.Graphics
    Dim paintmode As Boolean = False
    
 
 Private Sub Picturebox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Picturebox1_ UC1.MouseMove
        If paintmode = True Then
            g = System.Drawing.Graphics.FromImage(picturebox1.Image)
            g.DrawImage("какая то картинка не важно это текстура мыши", e.X , e.Y )
            Picturebox1.Refresh()
 
        End If
    End Sub
 
    Private SubPicturebox1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Picturebox1.MouseUp
        paintmode = False
 
    End Sub
 
    Private Sub Picturebox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Picturebox1.MouseDown
        paintmode = True
 
 
 
    End Sub

Private Sub  Picturebox1_MouseWheel(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles  Picturebox1.MouseWheel
if e.delta>0 then picturebox1.size = new point(picturebox1.size.width + 50,picturebox1.size.height + 50)
if e.delta<0 then picturebox1.size = new point(picturebox1.size.width - 50,picturebox1.size.height - 50)
    End Sub