[amgadtamer]

PHP كود :

يصبح الكود هكذا
Imports System.Text
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim str() As String = TextBox1.Text.Split(" "c)
        Dim strbuilder As New StringBuilder

        Dim i As Integer
        For i = 0 To str.Length - 1
            If TextBox2.Text.Contains(str(i).ToString) Then

                strbuilder.Append(str(i).ToString + " ")


            End If
        Next i
        MsgBox(strbuilder.ToString)
    End Sub
End Class