Sub AddBadgeToIcon(bmp As Bitmap, Number As Int) As Bitmap
Dim cvs As Canvas
Dim mbmp As Bitmap
mbmp.InitializeMutable(64dip, 64dip)
cvs.Initialize2(mbmp)
Dim target As Rect
target.Initialize(0, 0, mbmp.Width, mbmp.Height)
cvs.DrawBitmap(bmp, Null, target)
If Number > 0 Then
cvs.DrawCircle(mbmp.Width - 16dip, 16dip, 16dip, Colors.Red, True, 0)
cvs.DrawText(Min(Number, 100), mbmp.Width - 17dip, 23dip, Typeface.DEFAULT_BOLD, 20, Colors.White, "CENTER")
End If
Return mbmp
End Sub