

| Type | Description | |||
| Expanded as Boolean | A boolean expression that indicates the sign being changed. | |||
| Long | A long expression that indicates the icon being used for +/- signs on the parent items. |
The following sample assigns different icons for +/- buttons:
With ExplorerTree1
.BeginUpdate
.BackColor = vbWhite
.ForeColor = vbBlack
.BackColorGroup2 = SystemColorConstants.vb3DShadow
.Images "gBJJgBAICAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx2PyGRyWTymVy2XzGZzWbzmdz2f0Gh0WjwEWH0r08ekEikgAkso184iGkicPjcU2+zjW4jTnZ++jbv4Tvjbu4fF48adAv5fI4XO4ka4fRjO+4G73UZ3na7IAgI="
.Images "gBJJgBggAAwAAgACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjIgjIBAEijUlk8plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDjUPACAxGExVRwzAx0Sf4AxzAyWPxCAxeZouTyGdzmfx+cy+a0k5xuP0+Uw8ZzGVymc0uxmmcw2pjGt2G4x+y3ks2kO12ey2J3MY2G95GF4G/yO24u343D1vJ3m14HW5vX5eh7mv3fU2XMw+J0flxPY4PH8Gl0Xn7XZ+HjzGj23r5H09+d/Hx/f29b0OU+LQNU/0CwNA8EQSm6Kh8lUGo6j6QpGACSJPCqbsNBSVuAk5+Mik54B+lJwAfEYDxNFCTmBE8VAGlJgRdFsXxijRwRojJ4RujB8xKk8OI0gIA=="
With .Groups.Add("Group")
.BeginUpdate
.Expanded = True
.FullRowSelect = False
.HasButtons = exCustom
.HasButtonsCustom(False) = 1
.HasButtonsCustom(True) = 2
.LinesAtRoot = exLinesAtRoot
Dim h As HITEM
With .Items
h = .AddItem("Item 1")
.CellImage(h, 0) = 3
.CellCaptionFormat(h, 0) = exHTML
.InsertItem .InsertItem(h, , "SubItem 1"), , "SubItem 1.1"
.InsertItem h, , "SubItem 2"
End With
.EndUpdate
End With
.EndUpdate
End With
Running the sample you get:
