Sub AddLineToList
Dim Row As Panel
Dim pos As Int
Dim RowHeight,nRowPage As Int
RowHeight=26dip
nRowPage=Lista.Height/RowHeight
Row.Initialize("")
'.....
' Row is filled by other Views that I omit to avoid confusion
' then Row is added to the Lista.Panel at iRow-1 position
Lista.Panel.AddView(Row,1,2dip+(iRow-1)*(RowHeight) ,Lista.Width-6,RowHeight)
pos=RowHeight*(iRow-nRowPage+1)
If pos>0 Then
Lista.ScrollPosition=pos ' doesn't work ... nothing happens .
End If
End Sub