Dim itemlist As List
itemlist.Initialize
Dim bar As TabBarItem
' bar.Initialize("Ciao",Null,Null)
bar.InitializeSystem(bar.ITEM_BOOKMARKS)
bar.Badge = "User"
bar.Tag = "User"
itemlist.Add(bar)
Dim bar As TabBarItem
' bar.Initialize("Ciao",Null,Null)
bar.InitializeSystem(bar.ITEM_CONTACTS)
bar.Tag = "Info"
bar.Badge = "Info"
itemlist.Add(bar)
Dim TabBar As SegmentedControl
TabBar.Initialize("tb")
TabBar.Color = Colors.ARGB(128,0,0,0)
TabBar.SetItems(itemlist)
Page1.RootPanel.AddView(TabBar,0,500dip,100%x,48dip)