vb.net小白求救，如何在PictureBox上按鼠标指定的点为中心进行缩放
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PictureBox1.Image = Image.FromFile("\\192.168.0.100\Temp\1.tif")
End Sub
Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
PictureBox1.Focus()
End Sub
Private Sub PictureBox1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseWheel
PictureBox1.Width += e.Delta
PictureBox1.Height += e.Delta
End Sub
End Class
