[مساعدة]

السلام عليكم

في داخل الكود استخدم sender بدلا من اسم الأداة للإشارة للأداة التي استدعت الكود، ولا تنس إضافة أسماء الأدوات بعد كلمة Handles

هذا مثال عند دخول الماوس

كود :

Private Sub PictureBox_MouseEnter(sender As Object, e As EventArgs) _
Handles PictureBox1.MouseEnter, PictureBox2.MouseEnter, PictureBox3.MouseEnter
   sender.BackgroundImage = My.Resources.b
End Sub

---

وهذا مثال وعند ابعاد الماوس

كود :

Private Sub PictureBox_MouseLeave(sender As Object, e As EventArgs) _
Handles PictureBox1.MouseLeave, PictureBox2.MouseLeave, PictureBox3.MouseLeave
   sender.BackgroundImage = My.Resources.b.Tag
End Sub