Private Sub Application_Start (nav As NavigationController)
NavControl = nav
Page1.Initialize("Page1")
NavControl.ShowPage(Page1)
Page1.RootPanel.LoadLayout("1")
Picker1.SetRowsHeight(35)
Dim items As List
items.Initialize
For i = 1 To 100
Dim s As AttributedString
s.Initialize("Item #" & i, Font.CreateNew(30), Rnd(0x8fffffff, -1))
items.Add(s)
Next
Picker1.SetItems(0, items)
End Sub