How to know if Hierarchy is expanded

Hi!

Just want to ask if there's any way we can able to identify if an Hierarchy is currently Expanded or collapsed,

This is what it looks like when collapsed

This is when collapsed

Already know how to collapse and expand it, but how do i know if it's currently expanded or collapsed.

'Expand

sapSession.FindById("wnd[0]/usr/lbl[29," & icpRow & "]").SetFocus

sapSession.FindById("wnd[0]/usr/lbl[29," & icpRow & "]").caretPosition = 10

sapSession.FindById("wnd[0]").SendVKey 2

'Do something between

'Collapse

sapSession.FindById("wnd[0]/usr/lbl[29," & icpRow & "]").SetFocus

sapSession.FindById("wnd[0]/usr/lbl[29," & icpRow & "]").caretPosition = 10

sapSession.FindById("wnd[0]").SendVKey 2

thank you!