[vbnet]

.....

كود :

' تحميل الفورم
Private Sub Form_Load()
    ' قراءة القيمة من الرجيستري
   Me.Text1.Text = GetSetting(App.Title, Me.Caption, "Text1", "")
End Sub

' إغلاق الفورم
Private Sub Form_Unload(Cancel As Integer)
    ' حفظ القيمة في الرجيستري
   Call SaveSetting(App.Title, Me.Caption, "Text1", Me.Text1.Text)
End Sub

.....