Dim HintFont1 As Font
HintFont1 = Font.CreateNew (17)
Dim HintFont2 As B4XFont
HintFont2 = xui.CreateDefaultFont (17)
Dim f1 As B4XFont = xui.CreateFont2(HintFont1, 20)
Dim f2 As B4XFont = xui.CreateFont2(HintFont2, 20)
Log ("HintFont1 = " & HintFont1)
Log ("HintFont2 = " & HintFont2)
Log ("f1 = " & f1)
Log ("f2 = " & f2)