Sub Globals
Dim scrollview1 As ScrollView
Private Label1 As Label
Private ImageView1 As ImageView
Private Label2 As Label
Private ImageView2 As ImageView
Private Label3 As Label
Private ImageView3 As ImageView
Private Label4 As Label
Private ImageView4 As ImageView
Private Label5 As Label
Private ImageView5 As ImageView
Private Label6 As Label
Private ImageView6 As ImageView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("menuscrolling")
scrollview1.Top=20%y
scrollview1.Height=120%y
Label1.RemoveView()
scrollview1.Panel.AddView(Label1,0%x,0%y,100%x,15%y)
ImageView1.RemoveView()
scrollview1.Panel.AddView(ImageView1,1%x,1%y,14%x,13%y)
Label2.RemoveView()
scrollview1.Panel.AddView(Label2,0%x,Label1.Top+20%x,100%x,15%y)
ImageView2.RemoveView()
scrollview1.Panel.AddView(ImageView2,1%x,ImageView1.Top+20%y,14%x,13%y)
Label3.RemoveView()
scrollview1.Panel.AddView(Label3,0%x,Label2.Top+20%x,100%x,15%y)
ImageView3.RemoveView()
scrollview1.Panel.AddView(ImageView3,1%x,ImageView2.Top+20%y,14%x,13%y)
Label4.RemoveView()
scrollview1.Panel.AddView(Label4,0%x,Label3.Top+20%x,100%x,15%y)
ImageView4.RemoveView()
scrollview1.Panel.AddView(ImageView4,1%x,ImageView3.Top+20%y,14%x,13%y)
Label5.RemoveView()
scrollview1.Panel.AddView(Label5,0%x,Label4.Top+20%x,100%x,15%y)
ImageView5.RemoveView()
scrollview1.Panel.AddView(ImageView5,1%x,ImageView4.Top+20%y,14%x,13%y)
Label6.RemoveView()
scrollview1.Panel.AddView(Label6,0%x,Label5.Top+20%x,100%x,15%y)
ImageView6.RemoveView()
scrollview1.Panel.AddView(ImageView6,1%x,ImageView5.Top+20%y,14%x,13%y)
End Sub