Public Sub MeasureMultiTextHeight(lbl As Label, width As Int, text As Object) As Int
#if b4a
Private su As StringUtils
Return su.MeasureMultilineTextHeight(lbl, text)
#else if b4i
Dim plbl As Label
plbl.Initialize("")
plbl.Width = width
plbl.Multiline = True
XUIViewsUtils.SetTextOrCSBuilderToLabel(plbl,text)
plbl.SizeToFit
Return plbl.Height
#End If
End Sub