[أسامة]

جرب هذا الكود

كود :

Try
            Dim d As Integer
            Dim edititem As String
            d = TextBox1.Text.Length
            For Each item In ComboBox1.Items
                edititem = item
                edititem = edititem.Substring(0, d)
                If TextBox1.Text = edititem Then
                    If Not ListBox1.Items.Contains(item) Then
                        ListBox1.Items.Add(item)
                    Else
                        ListBox1.Items.Contains(item)
                    End If
                End If
            Next
            If TextBox1.Text = "" Then
                ListBox1.Items.Clear()
            End If
        Catch ex As Exception

        End Try