Private ScvVw As ScrollView
Sub Activity_Create(FirstTime As Boolean)
Dim height As Int = CalculateHeight(True, False)
vp.Initialize("vp", 2, 100%x, height)
Activity.AddView(vp.AsView, 0, 0, 100%x, height)
vp.Panels(0).LoadLayout("sales")
vp.Panels(1).LoadLayout("Lay1")
ScvVw.Panel.LoadLayout("others")
End Sub