[@@أبورائد@@]

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





تفضل بعد التعديل

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ModifiedList As New List(Of String)
        For I = ListBox1.Items.Count - 1 To 0 Step -1
            Dim SplitText() As String = ListBox1.Items(I).Split("-")
            SplitText(5) = 0
            SplitText(7) = 0
            SplitText(9) = 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
    End Sub 


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