Button Text Extended characters

'set special fonts for non standard languages
Sub SetFont() As Typeface
   Select Case MYLANGUAGECODE.ToLowerCase
      Case  "che"                                             'this is Cherokee
         If Cherokee.IsInitialized = False Then
            Cherokee = Typeface.LoadFromAssets("plantc.ttf")         'load the special font for this language
         End If
         Return Cherokee
      Case Else
         Return Typeface.DEFAULT
   End Select
End Sub

Dim L As Button
   L.Initialize("btn")
   L.Typeface = SpecialFont.setfont               'set any special fonts