[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته

تفضل اخي الكريم له ثلاث حالات اضفت الحالة صفر يبقى ابيض

كود :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       If Val(TextBox1.Text) > 0 Then
           TextBox1.BackColor = Color.Red
       ElseIf Val(TextBox1.Text) = 0 Then
           TextBox1.BackColor = Color.White
       Else
           TextBox1.BackColor = Color.LightGreen
       End If
   End Sub