Sub Globals
Dim default_font, default_font_bold, default_font_italic As Typeface
Sub Activity_Create
SetFont("Led.ttf")
lblAppTitle.TextSize = 34
lblAppTitle.Typeface = default_font
Private Sub SetFont(FontFileName As String)
default_font = Typeface.LoadFromAssets(FontFileName)
default_font_bold = Typeface.CreateNew(default_font, default_font.STYLE_BOLD)
default_font_italic = Typeface.CreateNew(default_font, default_font.STYLE_ITALIC)
End Sub