For i = 0 To List1.Size - 1
Dim Row() As String
Row = List1.get(i)
Dim pnl As Panel = CreateListItem($"Item #${i}"$, clv2.AsView.Width, 70dip,Row(0),Row(1),Row(2))
clv2.Add(pnl, 70dip, $"Item #${i}"$)
Next
Dim acc As Accessiblity
acc.SetNextFocusDown(pnl.GetView(0), clv2.GetPanel(0).GetView(0))