[عبدالله الصافي]

قم بالتعديل علي كود الأخ wolf1120 أجعل الكود ده

كود :

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

في كلا من الحدث Command2_Click والحدث Form_Unload كالأتي

كود :

SaveSetting App.Title, "Settings", "SaveInText1", I

وأيضا اجعل الكود ده

كود :

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

كالأتي

كود :

I= GetSetting(App.Title, "Settings", "SaveInText1")