单号的ValueChanged事件,状态的CheckedChanged事件
Dim cbx = e.form.controls("CheckBox1")
If cbx.Checked Then
cbx.forecolor = Color.Green
Else
cbx.forecolor = Color.Red
End If