كود زخرفة النصوص - نسخة قابلة للطباعة

كود :
Dim txt As String = TextBox1.Text

txt = txt.Replace("ي", "ـے")

txt = txt.Replace("ك", "گ")

txt = txt.Replace("ب", "بـ?ـ")

txt = txt.Replace("ا", "أآ")

txt = txt.Replace("ت", "تـ?ـ")

txt = txt.Replace("ث", "ثـ")

txt = txt.Replace("ج", ",ـجـ,")

txt = txt.Replace("ح", ",حـ,")

txt = txt.Replace("خ", "خـ")

txt = txt.Replace("س", "سـ?ـ")

txt = txt.Replace("ش", "شـ")

txt = txt.Replace("ص", "صـ?ـ")

txt = txt.Replace("ض", ",ضـ,")

txt = txt.Replace("ط", "طــ")

txt = txt.Replace("ظ", "ظــ")

txt = txt.Replace("ع", "عـ?ـ")

txt = txt.Replace("غ", "غـ")

txt = txt.Replace("ف", "فـ")

txt = txt.Replace("ق", ",قـ,")

txt = txt.Replace("ل", "لـ")

txt = txt.Replace("م", "مـ?ـ")

txt = txt.Replace("ن", "نـ")

txt = txt.Replace("ه", "ـہ")

txt = txt.Replace("و", "ؤؤؤ")

txt = txt.Replace(" ", " ")

TextBox2.Text = txt