[aftfm]

نعم الف شكر للجميع هذا بعد التعديل

PHP كود :

Dim ModifiedList As New List(Of String)
        For I = ListBox1.Items.Count - 1 To 0 Step -1
            Dim SplitText() As String = CStr(ListBox1.Items(I)).Split(CChar("-"))
            SplitText(5) = CStr(0)
            SplitText(7) = CStr(0)
            SplitText(9) = CStr(0)
            Dim NewText As String = String.Join("-", SplitText)
            If ModifiedList.IndexOf(NewText) > -1 Then
                ListBox2.Items.Add(ListBox1.Items.Item(I))
                ListBox1.Items.RemoveAt(I)
            End If
            ModifiedList.Add(NewText)
        Next