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

[محروم.كوم]

السلام عليكم
اريد كتابه الشفر

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