Sub Globals
'Another lines
Dim Pan1 As Panel
'More lines
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Lots of lines...
Pan1.Initialize("")
Pan1.Height =100%y
Pan1.Width =100%x
Pan1.LoadLayout("principal")
Pan1.Color=Colors.ARGB(100,100,0,100)
container.AddPage(Pan1,"Kilómetros")
'More and more lines...