Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")
clv1Fill
Starter.csu.CallSubPlus2(Me, "clv1_Jump", 250,Array("25"))
End Sub
Sub clv1Fill
clv1.Clear
clv1.DefaultTextColor=Colors.Black
For i=0 To 100
clv1.AddTextItem("i= " & i,i)
Next
End Sub
Sub clv1_Jump(args() As Object)
clv1.JumpToItem(args(0))
End Sub