Sub Activity_Create(FirstTime As Boolean)
Dim p As Phone
p.SetScreenOrientation(1) ' force portrait
Activity.AddMenuItem("About","About")
Activity.AddMenuItem("Contributors","Contrib")
Activity.AddMenuItem("Exit","btnEnd")
Activity.color = Colors.Gray
If FirstTime Then