Как увеличить изображение на picturebox с помощью события mousewheel в VB.NET

---

Когда я увеличу изображение, оно изменит свое местоположение.
Мне нужно точное местоположение на коробке с картинками

Что я уже пробовал:

Если e. Delta < & gt; 0, то
Имя picturebox1.Ширина += Кинт(Имя Picturebox1.Ширина * электронная.Дельта / 1000)
Имя picturebox1.Высота += Кинт(Имя Picturebox1.Высота * электронная.Дельта / 1000)

Если e. Delta > 0, то
Dim x1, y1 как целое число
Х1 = имя picturebox1.Расположение.X + 10
У1 = имя picturebox1.Расположение.Y + 10
PictureBox1. Location = новая точка(x1, y1)
ElseIf e. Delta < 0 тогда
Dim x1, y1 как целое число
Х1 = имя picturebox1.Расположение.Х-10
У1 = имя picturebox1.Расположение.Y-10
PictureBox1. Location = новая точка(x1, y1)
Конец, Если

Конец, Если

---