For i = 1 To 50
Dim tc As TableCell = tv.AddSingleLine("")
tc.ShowSelection = False
tc.CustomView = CreateItem
Next
Private Sub CreateItem As Panel
Dim p As Panel
p.Initialize("")
p.Width = 100%x
p.Height = tv.RowHeight
p.LoadLayout("1")
Return p
End Sub