[أبو عمر]

PHP كود :

   Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
        Select Case Val(TextBox1.Text)
            Case 0 To 49 : TextBox1.BackColor = Color.Red
            Case 50 To 59 : TextBox1.BackColor = Color.Yellow
            Case 60 To 69 : TextBox1.BackColor = Color.Orange
            Case 70 To 79 : TextBox1.BackColor = Color.Pink
            Case 80 To 89 : TextBox1.BackColor = Color.LightBlue
            Case 90 To 100 : TextBox1.BackColor = Color.LightGreen
        End Select
    End Sub 


بالتوفيق
يعجبني اجتهادك