Упрощение нескольких похожих «частных подпрограмм» в VB

Question

Я пишу программу VB, которая имеет несколько позиций, где, когда пользователь наводит курсор на элемент, появляется одно и то же изображение.

В настоящее время у меня есть:

Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
    PictureBox1.Image = Image.FromFile(picturePath)
End Sub

Private Sub PictureBox2_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox2.MouseMove
    PictureBox2.Image = Image.FromFile(picturePath)
End Sub

Private Sub PictureBox3_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox3.MouseMove
    PictureBox3.Image = Image.FromFile(picturePath)
End Sub

Private Sub PictureBox4_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox4.MouseMove
    PictureBox4.Image = Image.FromFile(picturePath)
End Sub

Private Sub PictureBox5_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox5.MouseMove
    PictureBox5.Image = Image.FromFile(picturePath)
End Sub

Private Sub PictureBox6_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox6.MouseMove
    PictureBox6.Image = Image.FromFile(picturePath)
End Sub

Private Sub PictureBox7_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox7.MouseMove
    PictureBox7.Image = Image.FromFile(picturePath)
End Sub

Это работает нормально, однако я хочу сжать мой код. Конечно, есть способ превратить это в 1 или 2 частных сабвуфера.

Обратите внимание, что это всего лишь фрагмент моего кода.

Имена объектов легко называются PictureBox1, PictureBox2 и т. Д.

Привет

Hugo.

Answer 1

Private Sub PictureBox_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove, PictureBox2.MouseMove, PictureBox3.MouseMove, PictureBox4.MouseMove, PictureBox5.MouseMove, PictureBox6.MouseMove, PictureBox7.MouseMove
    DirectCast(sender, PictureBox).Image = Image.FromFile(picturePath)
End Sub