السلام عليكم
في الصورة عناصر Shape عددها ثمانية .
اريد عندما اشغل اي جهاز من الثمانية يعطيني لون الجهاز الشغال اخضر وعند الاطفاء يعطيني برتقالي طيعاً الكود احد الاخوة الله يجزيه الخير عمله
فـ انا ما اعرف وين اضع الكود ارجو المساعدة
هذا للون البرتقالي Shape4.BackColor = &H80C0FF
هذا للون الاخضر Shape1.FillColor = &HFF00&
Dim digit As Byte
digit = Val(Text1.Text)
If digit <= 8 And digit >= 1 Then
Dim readPin As Integer
readPin = Inp(888)
Out Val(888), (2 ^ (digit - 1)) Xor readPin
Text1.Text = ""
End If
ارجو الرد والله يجزيكم الخير
