[3booody]

عفوآ اخي الشكر لله , هذا واجبنا

بالنسبة لسؤالك يفضل ان تعمل حفظ لليست نفسه بوقت معين انته تختاره بما ان الملف نصي وانته تضيفه لليست بهذا الشكل

كود :

ListBox1.Items.AddRange(IO.File.ReadAllText("المسار.txt").Split(vbNewLine).ToArray)

وبهذا الكود عند الضغط المزدوج على الليست بوكس يتم حذف المحدد

كود :

Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
       If ListBox1.SelectedIndex > 0 Then
           ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
       End If
   End Sub

اذا ماعندنا مشكلة غير حذف السطر للملف النصي هالشي ممكن انته تختصر الاكواد وفقط تحفظ ماموجود بالليست بوكس عن طريق الكود

كود :

Dim str As String = ""
       For Each txt As String In ListBox1.Items
           str &= txt & vbNewLine
       Next
       IO.File.WriteAllText("المسار.txt", str.Trim)