Spanish [SOLUCIONADO] Expandable Panels: scroll y collapse

Sub expPnls_Click(MyExpPnl As expandablePanel)

    If listP.Size > 0 Then

        For i = 0 To listP.Size -1     'Recorremos los paneles
             If expPnls(i).IsExpanded Then
                 expPnls(i).Collapse
             End If 
        Next

        MyExpPnl.ToggleHeight     'Expandimos el panel selecionado
    End If

End Sub