Ridimensionare e mostrare un'immagine in base al punto ove si è cliccato con il puntatore del mouse

Il caso è quello in cui, avendo caricato un'immagine in una PictureBox, si intende mostrare detta immagine, però ridimensionata avendo come coordinata iniziale x=0, y=0 il punto in cui si è cliccato sulla medesima con il puntatore del mouse.

E' possibile utilizzare il seguente esempio:

Private im As New Image


Public Sub Form_Open()
 
 im = im.Load("/percorso/del/file/immagine")
 
 With PictureBox1
   .X = 10
   .Y = 10
   .W = Me.w - 10
   .H = Me.H - 10
   .Image = im
 End With
  
End


Public Sub PictureBox1_MouseUp()
 
 With PictureBox1
   im = .Image.DrawImage(im, 0, 0, im.W, im.H, Mouse.X, Mouse.Y)
   im = .Image.Resize(im.W - Mouse.X, im.H - Mouse.Y)
   .Image = im
 End With
  
End