Private Sub setDieValue(v As View, Color As Int, bmp As Bitmap)
Private cvs As Canvas
Private rct As Rect
Private cd As ColorDrawable
rct.Initialize(0, 0, v.Width, v.Height)
cvs.Initialize(v)
cd.Initialize(Color, 5dip)
cvs.DrawDrawable(cd, rct)
cvs.DrawBitmap(bmp, Null, rct)
v.Invalidate
End Sub