تعيير رنگ ليبل

[bemilove]

آيا مي شود كد فرم نمونه را خلاصه تر كرد.مثلاوقتي روي يك لبيل كليك مي شود مابقي كه كدشان سه خط است اجرا شده وبه يك رنگ تغيير وضعيت مي دهند.آيا مي شود اين سه خط(3و4و5) را يك خط كرد(چون در رنگ مشابه هستند)
If L0.BackColor = 10092543 Then
L0.BackColor = vbRed
L1.BackColor = 10092543
L2.BackColor = 10092543
L3.BackColor = 10092543
End If

[mazoolagh]

نمیشه! ..........