Sub Activity_Create(FirstTime As Boolean)
For i = Activity.NumberOfViews - 1 To 0 Step -1
Activity.RemoveViewAt(i)
Next
Activity.LoadLayout("CraneReport")
scrviewHst_trlly.Panel.LoadLayout("Hst_trlly")
' tabhCraneReport.AddTab("Hoist & Trolley", "Hst_trlly")
tabhCraneReport.AddTab2("Hoist & Trolley", scrviewHst_trlly)
scrviewCrane.Panel.LoadLayout("Crane")
' tabhCraneReport.AddTab("Crane", "Crane")
tabhCraneReport.AddTab2("Crane", scrviewCrane)
scrviewMono_Runway.Panel.LoadLayout("Mono_Runway")
' tabhCraneReport.AddTab("Runways", "Mono_Runway")
tabhCraneReport.AddTab2("Runways", scrviewMono_Runway)
End Sub