[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
أخي الكريم ضع مثال مع اسماء المتغيرات التي أنشأتها في  Settings ليصار الى التعديل

---

السلام عليكم 
تفضل اخي الكريم

كود :

 Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
       Dim MyVar() As String = {"MyVar1", "MyVar2", "MyVar3", "MyVar4"} ' مصفوفة اسماء المتغيرات في السيتينغ
       Dim Mytxt() As TextBox = {TextBox1, TextBox2, TextBox3, TextBox4} ' مصفوفة اسماء التكست بوكس
       For i As Integer = 0 To MyVar.Length - 1
           Dim MyV As String = MyVar(i)
           My.Settings.Item(MyVar(i)) = Mytxt(i).Text
           My.Settings.Save()
       Next
   
   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       TextBox1.Text = My.Settings.MyVar1
       TextBox2.Text = My.Settings.MyVar2
       TextBox3.Text = My.Settings.MyVar3
       TextBox4.Text = My.Settings.MyVar4
   End Sub