كود حفظ ما يتغير في الفورم بعد اغلاقه

Private Sub Form_Load()

Text1.Text = GetSetting(App.Title, "Settings", "SaveInText1")

End Sub

Private Sub Form_Unload(Cancel As Integer)

SaveSetting App.Title, "Settings", "SaveInText1", Trim(Text1.Text)

End Sub

'يمكنك تغيير text1 ب image او picture