[عبد العزيز البسكري]

إضافة لما تقدّم به الإخوة الأفاضل جزاهم الله خير الجزاء .. من الممكن أيضا الاستغناء عن زر الأمر بهذا التغيير البسيط

إحتراماتي

كود :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Val(Text1.Text) > 10 Or Val(Text1.Text) < 5 Then
Me.Label1.BackColor = &HC000&
Else
Me.Label1.BackColor = &HFF&
End If
End Sub