Sub DrawCenteredText(canvas As Canvas, text As String, Left As Int, Top As Int, Fnt As Font, Color As Int)
Dim lbl As Label
lbl.Initialize("")
lbl.Font = Fnt
lbl.TextAlignment = lbl.ALIGNMENT_CENTER
lbl.TextColor = Color
lbl.Text = text
lbl.Multiline = True
Dim width As Int = text.MeasureWidth(Fnt)
Dim height As Int = text.MeasureHeight(Fnt) + 50
lbl.SetLayoutAnimated(0, 1, 0, 0, width, height)
Dim rect As Rect
rect.Initialize(Left - width / 2, Top, Left + width / 2, Top + height)
canvas.DrawView(lbl, rect)
End Sub