[ناجي إبراهيم]

السلام عليكم...

في الأكواد التالية ضع بدل My App Name الاسم الذي تريده لبرنامجك في الـ Registry (أي اسم تريده. المهم هو نفسه مع GetSetting و SaveSetting).

1. عند تحميل النافذة اقرأ القيمة من الـ Registry:

كود :

Private Sub Form_Load()
    BackColor = CLng(GetSetting("My App Name", "Interface", "BackColor", CStr(BackColor)))
End Sub

2. عند إغلاق النافذة احفظ اللون الحالي في الـ Registry:

كود :

Private Sub Form_Unload(Cancel As Integer)
    SaveSetting "My App Name", "Interface", "BackColor", CStr(BackColor)
End Sub

نرجو الاستفادة و السلام.