主题：字体自动变色

启用窗口计时器

窗口TimerTick事件代码：

If Tables("表A").Rows.Count > 0 Then
    If Tables("表A").Current("第一列") > 0 Then
        e.Form.Controls("NumericComboBox1").BackColor = Color.Red
    Else
        e.Form.Controls("NumericComboBox1").BackColor = Color.White
    End If
End If