Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("Layout1")
ToolBar.SetAsActionBar
ToolBar.Title = "NHDC Waste Management"
ToolBar.SubTitle = "Forms"
'ToolBar.LogoBitmap=LoadBitmap(File.DirAssets,"icon.png")
ToolBar.Color = Main.tabcol
'Initialize a PageContainer Object
PC.Initialize
VP.Top = ToolBar.Height
ScrollView1.Initialize(DipToCurrent(VP.Height))
Activity.AddView(ScrollView1, 0, VP.Top, 100%x, 100%y)
ScrollView1.Panel.LoadLayout("Menu")
sv_ht = (Button4.Top + Button4.Height) + Panel1.Top + VP.Top
If sv_ht < Activity.Height + ToolBar.Height Then
sv_ht = Activity.Height + ToolBar.Height
End If
ScrollView1.Panel.Height = (sv_ht)
Activity.AddMenuItem3("Exit","Exit", LoadBitmap(File.DirAssets,"ic_exit_to_app_white_36dp.png"), True)
strWIPText = ""
If File.Exists(Main.SavePath, "DriversCheckList.csv") Then
strWIPText = CRLF & "(continue...)"
End If
Button1.Text = Button1.Text & strWIPText
End Sub