كود :
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