Private Sub Form_Timer()
If Me.Metin77 > 1700 Then
If Me.Metin77.Visible = True Then
Me.Metin77.Visible = False
Else
Me.Metin77.Visible = True
End If
End If
End Sub
kodunu yazın ve süre ölçer aralığını 1000 olarak ayarlayın. Böylelikle eğer sözkonusu metin kutusunda yazılı değer 1700'den büyük olduğunda yanıp sönecektir. Kolay gelsin.