[asmarsou]

(01-05-22, 11:26 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

قم بإضافة (Module1) للمشروع إن لم تكن قد أضفت واحدة حتى الآن، وضع فيها الكود التالي :

كود :

Sub ChangeButtonColor(pForm As Form, pColor As Color)
       For Each ctl As Control In pForm.Controls
           If TypeOf ctl Is Button Then
               ctl.BackColor = pColor
           End If
       Next
   End Sub

وفي حدث الـ (Load) لكل فورم ضع فيه الكود التالي :

كود :

ChangeButtonColor(Me, Color.LightSteelBlue)

لاحظ بإمكانك تخصيص اللون للازرار في كل نافذة على حدى.. بدون أن تجعل كل النوافذ متشابهة بألوان الازرار..

بارك الله لك و فيك