[kslawy]

السلام عليكم ورحمة الله وبركاته

كود :

' استعراض العناصر المحفوظة
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim MyItems As String = Application.UserAppDataRegistry.GetValue("MyItems") ' استعادة العناصر المحفوظة في الريجستري
        If Not String.IsNullOrEmpty(MyItems) Then ' التأكد من وجود بيانات
            Dim Items() As String = MyItems.Split("|") ' تقسيم العناصر
            Me.ListBox1.Items.AddRange(Items.ToArray) ' إضافة العناصر لأداة الليست دفعة واحدة
        End If
    End Sub


    ' حفظ العناصر السابقة والجديدة
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Try
            Dim items As String = "" ' حاوية العناصر
            If Me.ListBox1.Items.Count > 0 Then ' التحقق من احتواء أداة الليست علي عناصر
                For Each s As String In Me.ListBox1.Items ' حلقة للدوران علي عناصر الأداة
                    If s <> "" Then ' التححق من عدم خلو المتغير من بيانات
                        items += s & "|" ' إضافة قيمة العنصر لحاوية العناصر
                    End If
                Next
                items = items.TrimEnd("|") ' حذف آخر علامة لأننا لا نحتاج إليها
                Application.UserAppDataRegistry.SetValue("MyItems", items) ' حفظ البيانات في الريجستري
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error")
        End Try
    End Sub

قد توجد طرق أخرى أسهل من هذا

****
***
**
*