Android Question Expandable list based on xCustomListView

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