Expand/Hide Subordinates with double click

[Lambo]

Hi,

I'm trying to create an organisation chart where the subordinates are expanded or hidden by double clicking on the manager.

At the moment, I use this macro using the "Behaviour" option on double click:

Sub Expand()
Call Visio.Application.Addons("OrgC11").Run("/expandsubordinates")


End Sub

But ideally I'd like double click to be "hide/expand subordinates", swapping them to the opposite state they're initially in.

Anyone able to help with this? As you can probably tell, I've no experience with VBA, Macros or even Visio until this week!

Thanks