Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.Title = "Page 1"
Page1.RootPanel.Color = Colors.White
NavControl.ShowPage(Page1)
Page1.RootPanel.LoadLayout("1")
listsegment.Initialize
listsegment.Add("Mac Ekle")
listsegment.Add("Mac Edit")
listsegment.Add("Listele")
SegmentedControl1.SetItems(listsegment)
SegmentedControl1.SelectedIndex=0
Dim no As NativeObject = App
no.RunMethod("setStatusBarHidden:animated:", Array(True, False))
listpicker.Initialize
listpicker.Add("kod")
listpicker.Add("takimlar")
listpicker.Add("tahmin")
listpicker.Add("oran")
listpicker.Add("guven")
Picker1.SetItems(0,listpicker)
End Sub