Dim kd As Double = val(e.Sender.Text)If kd > 0 Then e.Form.Controls("CheckBox1").Checked = False e.Form.Controls("CheckBox2").Checked = False e.Form.Controls("CheckBox3").Checked = False
Endif