Private Sub Form_Load()Dim A As String, B As StringA = GetSetting("MyApp", "Startup", "A")B = GetSetting("MyApp", "Startup", "B")MsgBox A & BEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)SaveSetting "MyApp", "Startup", "A", "A的内容"SaveSetting "MyApp", "Startup", "B", "B的内容"End Sub |