Sub ShowData(position as Int)
Dim su As StringUtils
Dim ll As Label
Dim i As Int
ListViewData.Clear
ListViewData.AddSingleLine(NewData.Get(position))
ll = ListViewData.SingleLineLayout.Label
ll.TextSize = ListViewData.SingleLineLayout.Label.TextSize
ll.Width = ListViewData.Width
ListViewData.SingleLineLayout.ItemHeight = su.MeasureMultilineTextHeight(ll, NewData.Get(posizione))
End Sub