Automatska promjena boje slova u formi

Interesuje me da li je neko probao napraviti proceduru za automatsku promjenu boje slova u Formi.

Na primjer: Ukoliko je vrijednost u polju X veća od 1000 da se automatski boja slova promijeni iz Plave u Crvenu.

Pomogla bi i promjena pozadine polja ili nešto slično.

odprilike ovako

if X>1000 then
Text.Forecolor= "vrednost" 'vrednost je brojcana oznaka boje koju hoces, mislim da treba bez navodnika
else
Text.Forecolor= "druga vrednost"
end if

Function Boja()
Dim a
Dim b As Integer

On Error GoTo Greska
Screen.ActiveForm.Refresh
a = Screen.ActiveControl
b = Len(Format$(a))
If Format$(a) = "" Then GoTo Kraj:
If Val(a) > 1000 Then
Screen.ActiveControl.ForeColor = 255
ElseIf Val(a) <= 1000 Then
Screen.ActiveControl.ForeColor = 0
End If
Screen.ActiveControl.SelStart = b
Kraj:
Exit Function
Greska:
MsgBox "Pogrešan upis"
GoTo Kraj
End Function

Private Sub Form_Current()
Dim a

On Error GoTo Kraj

a = Val(Me.Vrijednost)
If Format$(a) = "" Then GoTo Kraj:
If Val(a) > 1000 Then
Me.Vrijednost.ForeColor = 255
ElseIf Val(a) <= 1000 Then
Me.Vrijednost.ForeColor = 0
End If
Kraj:
End Sub

Private Sub Vrijednost_Change()
Boja
End Sub
Ime Kontrole je: Vrijednost
Sretan rad

Potpis

zxz

https://www.elitesecurity.org/t75625
https://www.elitesecurity.org/t89270

Poštovani "izonic".

Probao sam. Radi savršeno.

Hvala.

A kako bi izgledao kod da vrijednosti (brojcane) u polju ako su manje od 205 ili vece od 245, promjene boju recimo u crvenu???
Thx