Merhaba kodu aşağıdaki gibi düzenleyiniz olacaktır. Metin0 yerine kendi text alanınızın ismini yazmayı unutmayın. Ben kırmızı ve sarı kullandım siz beyaz ve siyahta kullanabilirsiniz. Kolay gelsin.

Dim lngRed As Long, lngYellow As Long, lngWhite As Long

    lngRed = RGB(255, 0, 0)

    lngBlack = RGB(0, 0, 0)

    lngYellow = RGB(255, 255, 0)

    lngWhite = RGB(255, 255, 255)





If Me.Metin0 > 1700 Then

     If Me.Metin0.BackColor = lngRed Then

        Me.Metin0.BackColor = lngYellow

     Else

        Me.Metin0.BackColor = lngRed

     End If

End If