[Sajad]

السلام عليكم

تفضل استدبل الكود بهذا:

PHP كود :

Dim s, item As String
        For i = 0 To ListBox1.Items.Count - 1
            For Each item1 As String In ListBox1.Items
                item = item1
                For Each item2 As String In ListBox2.Items
                    For Each item3 As String In ListBox3.Items
                        If (item1 = item And item2 = item And item3 = item) Then
                            s = item1
                        End If
                    Next
                Next
            Next
            ListBox1.Items.Remove(s)
            ListBox2.Items.Remove(s)
            ListBox3.Items.Remove(s)
        Next i