根据文本框内数据更改显示颜色

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If TextBoxNumber < 60 Then 'TextBoxNumber为分数控件
TextBoxNumber.ForeColor = lngRed '改为红色
ElseIf TextBoxNumber > 60 and TextBoxNumber < 80 Then
TextBoxNumber.ForeColor = lngBlue '改为兰色
else
TextBoxNumber.ForeColor = lngBlack '改为黑色
End If
End Sub