复选框的问题，急！！！

Question

将Value值用变量存储起来，在窗体的的Load事件中根据变量的值改变复选框的状态。

Answer 1

要写入注册表：Private Sub Check1_Click()
    If Check1.Value = vbChecked Then
        SaveSetting App.EXEName, "Start", "Check1", "True"
    Else
        SaveSetting App.EXEName, "Start", "Check1", "False"
    End If
End SubPrivate Sub Form_Load()
    If GetSetting(App.EXEName, "Start", "Check1") = "True" Then
        Check1.Value = vbChecked
    Else
        Check1.Value = vbUnchecked
    End If
End Sub

Answer 2

写在文件里面，下次在运行的时候读取一下，做一个界面的初始化工作。'Write File
open "Filename" for Output as #1
print #1,数据
close #1'Read File
open "Filename" for Input as #1
Line Input #1,变量
close #1