vb textbox 如何自动保存 不是点击按钮让它保存到同目录的.txt格式的文本

'你把代码复制到窗体就可以了，只用添加1个文本框

'系统启动时读取注册表里的内容
Private Sub Form_Load()
Text1 = GetSetting(App.Title, "settings", "text", s)
End Sub
'退出时保存内容
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title, "settings", "text", Text1.Text
End Sub