Ribaltare i caratteri e invertire il testo in un Controllo grafico che supporta il RichText

Per ribaltare i caratteri e invertire il testo in un Controllo grafico, che supporta il RichText, è possibile adottare il seguente codice:

Private caratteri As String[] = ["A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z",
                                 "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "h", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z",
                                 " ", "(", "+", ",", "-", ".", "/", "\\", "<", ">", "=", ")", "?", "!", "'", ";", "ꓯ", "ꓭ", "ꓛ", "ꓷ",
                                 "ꓱ", "ꓞ", "ꓨ", "H", "I", "ꓩ", "ꓘ", "ꓶ", "Ɯ", "N", "O",
                                 "Ԁ", "Ꝺ", "ꓤ", "S", "ꓕ", "ꓵ", "ꓥ", "M", "X", "⅄", "Z",
                                 "ɐ", "q", "ɔ", "p", "ǝ", "ɟ", "ɓ", "ɥ", "ᴉ", "ſ", "ʞ",
                                 "ꞁ", "ɯ", "u", "o", "d", "b", "ɹ", "s", "ʇ", "n", "ʌ",
                                 "ʍ", "x", "ʎ", "z", " ", ")", "+", "'", "-", "᛫", "\",
                                 "/", ">", "<", "=", "(", "¿", "¡", "،", "؛"]


Public Sub Form_Open()

 TextLabel1.Text = "www.gambas-it.org e' la Comunita' dei programmatori Gambas!"

End


Public Sub Button1_Click()

 Dim s As String

 For c As Short = (TextLabel1.Text.Len - 1) To 0 Step -1
   s &= caratteri[caratteri.Find(TextLabel1.Text[c, 1]) + 68]
 Next 

 TextLabel2.Text = s

End