Sub TabStripSetBadge
Dim i As Int = 0
TabStripBadger.Initialize
For i = 0 To TabPages.Size - 1
Dim p As Page = TabPages.Get(i)
Dim lbl As B4XView = p.TitleView
If i = 1 Then
TabStripBadger.SetBadge(lbl, iBadge1)
End If
If i = 2 And Then
TabStripBadger.SetBadge(lbl, iBadge2)
End If
Next
End Sub