The following sample sets the keyboard focus to the group that's expanded or collapsed:
Private Sub ExplorerTree1_SelectGroup(ByVal Group As EXPLORERTREELibCtl.IGroup) Group.SetFocus End Sub