Dim ww = e.Form.Controls("NumericComboBox1").BaseControl
ww.ForeColor = Color.red
ww.NegativeForeColor = Color.red