Sub Globals
Private lblPlayLayout As Label
Private lblPlayCodi As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
' Color de activity blanco en el layout y creado allí el lblPlayLayout.
lblPlayCodi.Initialize("lblPlay")
'En minúscula y sin guión intermedio, aquí y en el archivo de la fuente en la carpeta Files.
lblPlayCodi.Typeface = Typeface.LoadFromAssets("material_design_iconic_font.ttf")
lblPlayCodi.TextColor = Colors.Black
lblPlayCodi.TextSize = 45
lblPlayCodi.text = Chr(0xF2F5)
lblPlayCodi.Gravity = Gravity.CENTER
lblPlayCodi.Color = Colors.ARGB(0, 255, 255, 255)
Activity.AddView(lblPlayCodi, 100dip, 0, 100dip, 50dip)
End Sub