vb.net小白求救，如何在PictureBox上按鼠标指定的点为中心进行缩放

[slysmart]

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

[slysmart]

鼠标点击的坐标很好获取，但mousewheel事件该如何修改呢？

[slysmart]

这版的人气有这么低吗？

[dylike]

本版人气是不怎么样

[slysmart]

自己再顶，期待有人来解答

[slysmart]

装载本地网络图时过慢的问题，已经找到原因（图片文件过大导致的）

[slysmart]

版主在哪里？？？？

[wfusun123]

这个版本用过，不好用的

[slysmart]

引用 7 楼 u011563023 的回复:

这个版本用过，不好用的

那你是怎么处理的？