كيف اختصر الشفره؟؟
 

السلام عليكم
اريد كتابه الشفر
Dim I as integer
If i=0 then
Button1.backcolor=color.red
I=1
Else
Button1.backcolor=color.wihtsmoke
End if
في 11 button
بالفجول دوت نت لكن لااعرف اختصارها بحيث اكتبها في button واحد وارسالها للبقيه
فكيف لي عمل ذلك
وجزاكم الله خيرا