程序代码

Private Sub Form_Load()                       '加载窗体时载入历史数据
Text1 = GetSetting(App.Title, "Settings", "a", "")
End Sub
Private Sub Form_Unload(Cancel As Integer)    '退出时存入数据
SaveSetting App.Title, "Settings", "a", Text1
End Sub