Sub Activity_Create(FirstTime As Boolean)
bar.Initialize("bar")
bar.NavigationMode = bar.NAVIGATION_MODE_TABS
bar.Subtitle = "EAM 3663 Main Menu"
bar.ShowUpIndicator = False
bar.Icon = LoadBitmap(File.DirAssets, "actionbarlogo.png")
bar.AddTab("Main Menu").Tag = "tabMainMenu"
bar.AddTab("Chkr Acctg").Tag = "tabChkrAcctg"
bar.AddTab("Office Acctg").Tag = "tabOfficeAcctg"
End Sub
Sub bar_TabChanged(Index As Int, sTab As StdTab)
If Index = 0 Then
StartActivity(aChkrAcctg)
End If
End Sub