Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
For i = 20 To 0 Step -1
clv1.Add(CreateListItem($"Item #${i}"$, clv1.AsView.Width, 40dip), $"Item #${i}"$)
Log(i & $": Item #${i}"$)
Next
clv1.GetBase.Height = 240dip
clv1.sv.Height = 240dip
clv1.sv.ScrollViewInnerPanel.Height = (21 * 42dip) + 2dip
End Sub