[ali.alfoly]

السلام عليكم
تفضل
ولاتنسى جعل خاصية تعدد الاسطر فى التكست بوكس ممكنة

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim lst_1() As String = {"على", "محمد", "احمد", "شعبان", "رجب", "سيد"}
        Dim lst_2() As String = {"شعبان", "ممدوح", "غريب", "على", "ناصر", "فوزى"}

        For Each nem As String In lst_1
            If (Array.IndexOf(lst_2, nem) <> -1) Then
                Me.TextBox1.Text += nem & vbNewLine
            End If
        Next

    End Sub