VB如何判断checkbox是否选中

[极语言中文编程]

使用如下代码，无论怎么测试，怎么选中，结果都是选中（控件的默认值是1，如果默认值是0，无论选中或不选中，结果都是未选中。

Private Sub Command1_Click()
If Form2.Check1.Value = 1 Then
MsgBox "选中"
Else
MsgBox "未选中"
End If
End Sub
 说明一下：checkbox是在另一个窗体的picture图片容器中。为什么始终不变呢？
后来我又加了一个事件，
Private Sub Check1_Click()
If Check1.Value = 1 Then
Check1.Value = 0
Else
Check1.Value = 1
End If
End Sub

可是结果还是永远不变。请问如何判断

[极语言中文编程]

终于明白怎么回事了。原来是窗体2关闭之后。复选框值恢复了。怎么才能让这个选中保留呢。在关闭窗体的情况下。

[worldy]

定义一个全局变量 bChecked as long

在Form2代码中加入

sub Form_Load
Check1.Value=bChecked
end sub


sub Form_Unload
bchecked=Check1.value
end sub