Public Class Form1
 
    Dim b As Bitmap
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles PictureBox1.Click
 
    End Sub
 
    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        b = New Bitmap(Me.PictureBox2.Width, Me.PictureBox2.Height)
        Using g As Graphics = Graphics.FromImage(b)
            g.DrawImage(Me.PictureBox1.Image, New Rectangle(0, 0, _
              Me.PictureBox2.Width, Me.PictureBox2.Height), New Rectangle(e.X, _
              e.Y, 10, 10), GraphicsUnit.Pixel)
            Me.PictureBox2.Image = b
        End Using
    End Sub
End Class