Expand only one selected row in the tree

[radek225]

Is it possible? OFC without "+"
Now I have something like this in double click event in one of my field

If Me.SubdatasheetExpanded = False Then
    Me.SubdatasheetExpanded = True
Else
    Me.SubdatasheetExpanded = False
End If

But this code expand all of my items:/

 

[vbaInet]

Show us images of before and after.