[bidaya]

السلام عليكم

لنفترض عندنا هذا الكود لتغيير خلفية البيكتر بوكس بصورة من الريسورس عند وظع الماوس فوقها

كود :

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

وعند ابعاد الماس

كود :

Private Sub PictureBox1_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox1.MouseEnter
        PictureBox1.BackgroundImage = My.Resources.b.Tag
   End Sub

وتكون هناك اكثر من ادات بيكتر بوكس
هل يمكن اختصار الكود  علما ان الصورة واحدة
اي عندما يمر الماوس على كل بيكتر يتم التاثير بالصورة ولوحدها في نفس الوقت
وشكرا