Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
Activity.LoadLayout("numPanelLayout")
lvProducts.Initialize("lvProducts")
pnlNum.LoadLayout("numpanel")
pnlNum.Visible=True
pnlNum.Top=1010 'Xoom
pnlNum.Width = 600
OpenPictureTable
Activity.AddMenuItem("Cats", "mnuCatalogues")
PageTurner.Initialize("PageTurner", 20)
Activity.AddView(PageTurner, 0, 0, Activity.Width, Activity.Height - 195dip)
PageTurner.TwoPages = False
PageTurner.RenderLeftPage = False
PageTurner.SetMargins(0.0,0.01, 0.0, 0.01)
lvOrderPdct.Initialize("lvOrderPdct")
Activity.AddView(lvOrderPdct,0,800,175,180) 'Viewsonic
' Activity.AddView(lvOrderPdct,0,1030,175,180) 'Xoom
pnlOptions.Top=495
pnlOptions.Left=75
pnlOptions.Height=280
pnlOptions.Width=470
end if