Sub clv1_ItemClick (index As Int, Value As Object)
If Not(Currindex = index) Then
Dim i As ExpandableItemData = clv1.GetValue(Currindex)
If i.Expanded = True Then
expandable.ToggleItem(Currindex)
End If
End If
Sleep(300)
expandable.ToggleItem(index)
Currindex = index
End Sub