Dim chk As WinForm.CheckBoxchk = Forms("窗口1").Controls("CheckBox1")chk.Checked = True
能否这样 if chk.Checked = True then
还是要这样 dim a as boolean 设置全局变量
a = chk.Checked
if a = true then