vb多窗体中单选框判断

1、添加模块，在模块中声明一个变量，在option1是否被选时，同时给变量赋值，在form2中读取变量值即可。
例如在模块中声明变量：Public As XOption String
在窗体1选择option1时：
Private Sub Option1_Click()
If Option1.Value =True Then
XOption = "YES"
else
XOption = ""
End If
End Sub

在窗体2：
If XOption = "YES" then
'说明option1在窗体1已经选择
Else
'说明option1在窗体1没有选择
End If

2、如果在打开窗体2时窗体1没有关闭，也可以：
If form1.Option1.Value =True then
'说明option1在窗体1已经选择
Else
'说明option1在窗体1没有选择
End If

在form2中：
If Form1.Option1.Value = True Then
MsgBox "checked"
Else
MsgBox "not checked "
End If

添加一个模块，有public声明一个bool型变量，然后通过这个变量把它们联系起来。