コンテンツ ウィンドウで凡例の展開・格納

ILegendInfo pLegendInfo = pFeatureLayer;
 
for (long i = 0; i <= pLegendInfo.LegendGroupCount - 1; i++) {
    pLgendGroup = pLegendInfo.LegendGroup(i);
    pLgendGroup.Visible = false;
}
 
pMxDocument.UpdateContents();

Dim pLegendInfo As ILegendInfo
Set pLegendInfo = pFeatureLayer
 
Dim pLgendGroup As ILegendGroup
pLgendGroup.Visible = False
Dim i As Long
For i = 0 To pLegendInfo.LegendGroupCount - 1
    Set pLgendGroup = pLegendInfo.LegendGroup(i)
    pLgendGroup.Visible = False
Next i
 
pMxDocument.UpdateContents