TextHeight = (GetTextHeight("This is a text", 12) * 1.5) ' Font size 12
Private Sub GetTextHeight(Text As String, TextSize As Int) As Int
Dim FmtLabel As Label
Dim JavaObj As JavaObject
FmtLabel.Initialize("")
FmtLabel.TextSize = TextSize
FmtLabel.Text = Text
JavaObj = FmtLabel
JavaObj.RunMethod("setPadding", Array As Object(0, 0, 0, 0))
JavaObj.RunMethod("setIncludeFontPadding", Array As Object(False))
Return mCanvas.MeasureStringHeight(FmtLabel.Text, FmtLabel.Typeface, FmtLabel.TextSize)
End Sub