Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("Main")
th1.Left=0
th1.Top=0
th1.Width=100%x
th1.Height=100%y
th1.AddTab ("Kontakte","first")
th1.AddTab ("Galerie","gallery")
th1.AddTab ("CRM","crm")
...
end sub
Sub th1_tabchanged
If th1.CurrentTab=0 Then
' Activity.LoadLayout ("main")
Else If th1.CurrentTab=1 Then
StartActivity ("Galerie")
Else If th1.CurrentTab=2 Then
StartActivity ("crm")
End If
End Sub