Sub Globals
Private TabHost1 As TabHost
.....
end Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Tab") ' in diesem File ist der Tabhost hinterlegt
TabHost1.Height = Activity.Height
TabHost1.Width = Activity.Width
SV_Main.Initialize(600dip) 'ein ScrollView
TabHost1.AddTab2("Spot",SV_Main) 'das ScrollView auf das Tabview legen
SV_Main.Panel.Initialize("")
SV_Main.Panel.LoadLayout("Send.bal") 'Layout in das Scrollview laden
SV_Main.panel.Height=btn_Send.Top + btn_Send.Height + 200dip
.......
end sub