Sub Globals
Dim lblClass As Label
lblClass.Initialize("")
lblClass.Text = "this is a long sentence"
Activity.AddView(lblClass, 10dip, 10dip, 200dip, 30dip)
lblClass.TextSize = 20
Dim su As StringUtils
lblClass.Height = su.MeasureMultilineTextHeight(lblClass, lblClass.Text)
Msgbox(su.MeasureMultilineTextHeight(lblClass, lblClass.Text))
End Sub