If intCount > 0 Then
Dim ms As Int = intCount
Dim lblk As Label = GetAllTabLabels(TabStrip1).Get(3) '1 = tab #2
' badger1.SetBadge(lbl, Rnd(1,ms) )
badger1.SetBadge(lbl, badger1.GetBadge(lblk) + ms)
Else
'Dim ms As Int = 0.5
'badger1.SetBadge(lbl, Rnd(1,ms) )
End If