[just.coder]

يمكنك استخدام هذا ايضا

كود :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        On Error Resume Next
        For i As Integer = 0 To ListBox1.Items.Count - 1
            If TextBox1.Text.Contains(ListBox1.Items.Item(i)) Then
                TextBox1.Text = Replace(TextBox1.Text, ListBox1.Items.Item(i), ListBox2.Items.Item(i))
            End If
        Next
    End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        On Error Resume Next
        For i As Integer = 0 To ListBox2.Items.Count - 1
            If TextBox1.Text.Contains(ListBox2.Items.Item(i)) Then
                TextBox1.Text = Replace(TextBox1.Text, ListBox2.Items.Item(i), ListBox1.Items.Item(i))
            End If
        Next
    End Sub