Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.Title = "Page 1"
Page1.RootPanel.Color = Colors.White
Page1.RootPanel.LoadLayout("thu") 'layout thu is mine, you can use designer and save with other name
NavControl.ShowPage(Page1)
NavControl.ToolBarVisible=False
NavControl.NavigationBarVisible=False
Dim daylist As List
daylist.Initialize
For i=1 To 31
daylist.Add(i)
Next
spnday.SetItems(0,daylist)
End Sub