[asemshahen5]

عند حدث اللود عطل تحميل الحدث و ضع بدلا عنه الكود التالي :

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       'LoadSavedThems(Me)'كود الاستدعاء
       My.Settings.TextBoxBackColor = Color.Blue.Name
       My.Settings.Save()
       MsgBox("تمت عملية الحفظ بنجاح", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.MsgBoxRight, "حفظ سمة")
End Sub

عند ظهور الرسالة ضع موافق ثم أغلق البرنامج و ألغ الكود و أعد الكود السابق الى حدث

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       LoadSavedThems(Me)'كود الاستدعاء
End Sub