Sub Globals
Private fcell As FoldingCell
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("Layout1")
Dim pfront As Panel
pfront.Initialize("Panel")
pfront.LoadLayout("front")
Dim pback As Panel
pback.Initialize("Panel")
pback.LoadLayout("back")
fcell.addView(pback,100%x,450dip)
fcell.addView(pfront,100%x,150dip)
fcell.init(1000,Colors.Transparent,2)
End Sub