Public Sub GetTextWidth(Text As String, TextSize As Int, MonoSpace As Boolean) As Int
Dim FmtLabel As Label
Dim JavaObj As JavaObject
FmtLabel.Initialize("")
FmtLabel.TextSize = TextSize
FmtLabel.Text = Text
If MonoSpace Then FmtLabel.Typeface = Typeface.CreateNew(Typeface.MONOSPACE, Typeface.STYLE_NORMAL)
JavaObj = FmtLabel
JavaObj.RunMethod("setPadding", Array As Object(0, 0, 0, 0))
JavaObj.RunMethod("setIncludeFontPadding", Array As Object(False))
Dim Width As Int = mCanvas.MeasureStringWidth(FmtLabel.Text, FmtLabel.Typeface, FmtLabel.TextSize)
Return Width / mLayoutValues.Scale
End Sub