AfterLoad
Dim n As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox1")
Dim s = n.basecontrol
s.DataType = Gettype(Double)
n.Increment = 0.1