[sooriaty03]

السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم
هذا هو الكود المطلوب

كود :

Public Class Form1
    Dim ListOfEn, ListOfAr As New List(Of String)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each I As Char In TextBox1.Text.ToCharArray
            Dim Index As Integer = ListOfEn.IndexOf(I)
            If Index = -1 Then
                TextBox2.Text &= I
            Else
                TextBox2.Text &= ListOfAr.Item(Index)
            End If
        Next
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListOfEn.AddRange({"z", "Z", "x", "X", "c", "C", "v", "V", "b", "B", "n", "N", "m", "M", ",", "<", ".", ">", "/", "?",
                   "a", "A", "s", "S", "d", "D", "f", "F", "g", "G", "h", "H", "j", "J", "k", "K", "l", "L", ";", ":",
                   "'", """", "q", "Q", "w", "W", "e", "E", "r", "R", "t", "T", "y", "Y", "u", "U", "i", "I", "o", "O",
                   "p", "P", "[", "{", "]", "}", "`", "~"})
        ListOfAr.AddRange({"ئ", "~", "ء", "ْ", "ؤ", "}", "ر", "{", "لا", "لآ", "ى", "آ", "ة", "’", "و", ",", "ز", ".", "ظ",
                           "؟", "ش", "ِ", "س", "ٍ", "ي", "]", "ب", "[", "ل", "لأ", "ا", "أ", "ت", "ـ", "ن", "،", "م", "/",
                           "ك", ":", "ط", """", "ض", "َ", "ص", "ً", "ث", "ُ", "ق", "ٌ", "ف", "لإ", "غ", "إ", "ع", "‘", "ه",
                           "÷", "خ", "×", "ح", "؛", "ج", "<", "د", ">", "ذ", "ّ"})
    End Sub
End Class

بالتوفيق