[alyatwa]

Private Sub Form_Load()
' الكود فى الفورم
Text1.Text = GetSetting(App.EXEName, "textboxes", "text1", "")
Text2.Text = GetSetting(App.EXEName, "textboxes", "text2", "")

End Sub

Private Sub Form_Unload(Cancel As Integer)
' الحفظ عند الإغلاق
SaveSetting App.EXEName, "textboxes", "text1", Text1.Text

SaveSetting App.EXEName, "textboxes", "text2", Text2.Text

End Sub