PCLV.Initialize(Me, "PCLV", CustomListView1)
If curPics.RowCount > 0 Then
For i = 1 To curPics.RowCount Step 4
curPics.Position = i
PCLV.AddItem(height, xui.Color_White, CreateMyImageData(i))
Next
PCLV.ShowScrollBar = True
PCLV.ExtraItems = 3
PCLV.Commit
Else
PCLV.ShowScrollBar = False
PCLV.Commit
ToastMessageShow("Empty list", False)
End If