把信息写到注册表里,例子:Public Const THIS_APPNAME = "Your Application"
Public Const THIS_SECTION = "Settings"
Public Const KEY_OPTION1 = "Option1"
Public Const KEY_OPTION2 = "Option1"Private Sub Form_Unload(Cancel As Integer)
    SaveSetting THIS_APPNAME, THIS_SECTION, KEY_OPTION1, Option1.Value
    SaveSetting THIS_APPNAME, THIS_SECTION, KEY_OPTION2, Option2.Value
End SubPrivate Sub Form_Load()
    ' If there no key exists, error may occur
    ' or the key values are invalid, just ignore them
    On Error Resume Next
    Option1.Value = GetSetting(THIS_APPNAME, THIS_SECTION, KEY_OPTION1, True)
    Option2.Value = GetSetting(THIS_APPNAME, THIS_SECTION, KEY_OPTION2, False)
End Sub