Private Sub fill_clv1
clv1.Clear
Dim itemlst As List = get_textitems
For i = 0 To itemlst.Size -1
Dim item As String = itemlst.Get(i)
clv1.AddTextItem(item,i)
Next
Pane1.PrefHeight = clv1.AsView.Height - clv1.sv.ScrollViewContentHeight
Pane1.Top = clv1.sv.ScrollViewContentHeight + clv1.GetPanel(clv1.Size-1).Height + 5
End Sub