Sub DrawTextCenter(T As String, Cv As Canvas,Obj As ImageView,Bg As Bitmap, Cl As Int)
Dim Wt As Int
Dim Ht As Int
Dim Src,Dst As Rect
Wt = Cv.MeasureStringWidth(T, Typeface.DEFAULT,FontStd)
Ht = Cv.MeasureStringHeight("p",Typeface.DEFAULT,FontStd)
cl=Colors.White
Src.Initialize(0,0,Bg.Width,Bg.Height)
Dst.Initialize(0,0,obj.Width,Obj.Height)
Cv.DrawBitmap(Bg,Src,Dst)
Cv.DrawText(T,Obj.Width/2,(Obj.Height+Ht)/2, Typeface.DEFAULT,FontStd,Cl,"CENTER")
End Sub