Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 320dip, 500dip)
p.LoadLayout("MyDialog2") 'has 1 B4XFloatTextField and one edittext1
Dim l3 As B4XView= txtFirstName.TextField 'txtFirstName is a B4XFloatTextField
Dim f As B4XFont= xui.CreateFont(Typeface.CreateNew(Typeface.DEFAULT, Typeface.STYLE_ITALIC), 24)
l3.Font =f
Dim l2 As B4XView= EditText1
Dim f As B4XFont= xui.CreateFont(Typeface.CreateNew(Typeface.SERIF, Typeface.STYLE_BOLD), 34)
l2.Font =f