If e.form.controls("checkbox1").checked = false andalso e.form.controls("checkbox2").checked = false then
msgbox("必须选择1个")
End If