Private Sub Button1_Click
#If B4i
Label1.Font = CreateB4XFont("D3-Biscuitism-Bold", 30, 30)
#Else
Label1.Font = CreateB4XFont("D3_Biscuitism_Bold.ttf", 30, 30)
#End If
#If B4A
SetFontSize(60)
SetFontName("FONTAWESOME")
SetFontStyle("BOLD_ITALIC")
CreateFont
xLBL.TextColor = xui.Color_Green
#End If
End Sub