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

上面代码有两个问题
一、装载本地网络图时过慢（大约10秒左右），能否提升：
二、MouseWheel事件能否按鼠标指定的点为中心进行缩放（现在始终是一个点）
TKS VB.NET mousewheel 缩放
[解决办法]
本版人气是不怎么样
[解决办法]
这个版本用过，不好用的