Bahsettiğiniz şekildeki örneği ekler misiniz?

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

Sayın dreamt;
İlginize çok teşekkür ediyorum. Şu an tam istediğim gibi oldu. sağolun varolun. Allah bilgilerinize zeval vermesin
Herkese saygılar ve iyi çalışmalar...