Sub LoadScrollText
Dim ht As Float
lblModel1_Text.Initialize("")
scv_Model1.Panel.AddView(lblModel1_Text,0,0,100%x,100%y)
lblModel1_Text.Color=Colors.RGB(0,0,0)
lblModel1_Text.TextColor=Colors.White
txt = File.GetText(File.DirAssets, "description.txt")
lblModel1_Text.text = txt ' set the text string to the Label text property
ht = strUtil.MeasureMultilineTextHeight(lblModel1_Text, txt) ' measure Label height
scv_Model1.Panel.Height = ht ' set the ScrollView internal Panel height to the measured height
lblModel1_Text.Height = ht ' set the Label height to the measured height
scv_Model1.ScrollPosition = 0 ' set the scroll position to the top of the text
DoEvents ' needed to execute the previous line
End Sub