'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