[عمور2016]

وعليكم السلام اهلا ابو عقيل



جرب الكود ده



For n = 0 To 5
Dim i
For i = 6 To 10
Dim o
For o = 11 To 1000


If Text1.Text = n Then
Label1.BackColor = vbRed
ElseIf Text1.Text = i Then
Label1.BackColor = vbGreen
ElseIf Text1.Text = o Then
Label1.BackColor = vbRed
End If

Next
Next
Next

---

انا اشوف هذه طريقه انشاء الله طيبه
يمكن تعديل الارقام من بين وبين
تحياتي.,,,