Este fórum está sendo desativado

[inesmrtalmeida]

Ola!
Eu tenho uma TextBox1 que me devolve um valor.
Tenho depois uma TextBox6 que me devolve:

If TextBox1.Value < "80" Then
TextBox6.Text = " NÃO CRÍTICA "
End If

If TextBox1.Value >= "80" Then
TextBox6.Text = " CRÍTICA "
End If

O que eu queria era que na TextBox 6 " CRÍTICA " aparecesse a vermelho e " NÃO CRÍTICA " a verde.

Algúem me pode ajudar?
OBRIGADA

[alexandrevba]

Bom dia!!

Veja se ajuda...

Código: Selecionar todos

Private Sub CommandButton1_Click()
If TextBox1.Value < "80" Then
    TextBox6.Text = " NÃO CRÍTICA "
    TextBox1.BackColor = RGB(0, 255, 0) 'Verde
End If

If TextBox1.Value >= "80" Then
    TextBox6.Text = " CRÍTICA "
    TextBox1.BackColor = RGB(255, 0, 0) 'Vermelho
End If
End Sub

Para ver as paletas de cores:
http://www.rapidtables.com/web/color/RGB_Color.htm

Att