property Control.ControlID as String
Specifies the control's identifier.

TypeDescription
String A string expression that indicates the control's identifier.

The ControlID and LicenseKey properties must be set before calling Create method. The Create method creates an ActiveX control given its identifier and its runtime license key, if required. A control identifier, or programmatic identifier, is a registry entry that can be associated with a CLSID. The format of a control identifier is <Vendor>.<Component>.<Version>, separated by periods and with no spaces, as in Word.Document.6. 

For instance, the control's identifier for Microsoft Calendar Control is "MSCAL.Calendar", the control's identifier for Exontrol ExGrid Control is "Exontrol.Grid", and so on. 

The following VB sample displays the Microsoft Chart Control to a popup menu: 

Private Sub ExMenu1_OleEvent(ByVal ID As Long, ByVal Ev As EXMENULibCtl.IOleEvent)
    Debug.Print Ev.Name
End Sub

Private Sub Form_Load()
    With ExMenu1
        With .Items.Add("Chart", ItemTypeEnum.SubControl, 0).SubControl
            .ControlID = "MSChart20Lib.MSChart"
            .Create
        End With
        .Refresh
    End With
End Sub

The following VB sample displays a HTML document inside a SubControl item: 

With ExMenu1
    With .Items.Add(" <b>HTML</b> Document ", EXMENULibCtl.SubControl, 1).SubControl
        .CloseOn = exClick
        .Width = 196
        .Height = 134
        .ControlID = "htmlfile"
        .Create
        With .Object()
            .write "<HTML><BODY>"
            .write "<p>This is a <b>HTML</b> page...</p>"
            .write "<ul>"
                .write "<li>1 issue</li>"
                .write "<li>2 issue</li>"
                .write "<li>3 issue</li>"
            .write "</ul>"
            .write "</BODY></HTML>"
        End With
    End With
    .Refresh
End With

The following VB sample adds the Exontrol.ChartView component: 

With ExMenu1.Items
    With .Add(" ActiveX ", EXMENULibCtl.ItemTypeEnum.SubControl, 1234).SubControl
        .Width = 256
        .Height = 256
        .ControlID = "Exontrol.ChartView"
        .Create
        With .Object
            .BeginUpdate
            .BackColor = RGB(255, 255, 255)
            .Appearance = 2
            .HasButtons = 3
            .ButtonsAlign = 0
            .PenWidthLink = 3
            With .Root
                .Caption = "Root
Some information here.
Line 1:1
Line 2:2"
                .Image = 1
                .AddAssistant ("Assistant node")
            End With
            With .Nodes
                With .Add("Item 1", , "Key1")
                    .HasButton = False
                    .LinkTo = "Key2"
                End With
                .Add "SubItem 1", "Key1"
                With .Add("Sub Item 2", , "Key2")
                    Dim s As String
                    s = "gBHJJGHA5MIgAEIe4AAAFhwQiAbCAbigbEsWGAlGA7Eo7HcbIowIpFHZQkZQKA7IsplErlBbLZFmEzLZlMpQmxbOE2mxwn06nZ7n0+PdFMtFOCFQp7pR7SFKQtPSFPTdTTdVq9ZTalralr1fWClWFjsi7s1nYtmYtrtjQt1vbdubdzujlublvF5eDleF9eD7v77fYBwmFw2HxGJxWLxmNx2PyGRyWTymVy2XzGZzWbzmdz2f0Gh0WjzsMAAhfIEAMMf4AFmmhOxIAI1r/BIcJBwEABAQHBQ2FDIOBgAIGB4YODAULCQiIB4cGxoXDQcJERITFBSVBYaICAyGQIQFhsbDAIIERYOCYEGCkaCiYoLDAyNCoEDxMKDAgG1YMZgQFGYpkE0F4vGITAYjGIpFAkEQhEgLBYhmYgDAWBhCBsFh8HgQJCASCYaFYcjqCGBAIBgKhCCwZB6kAAgFgkOBQAQYIAjWABDAqKxYDQcJxEKBgMCMJI0BAeBXiCRAIBGJA+A4RJAlIJoMCWM5sFwQIhkOBwKAsdw3AqFBaBiapOjqQI3A8ZpYHWK4ExgWAWG2YIBnSP4CAgIBGAwQQjAaTgXh8TAmlYDBigMAgtAyXQyiASJzmqA4CEEf5VlAIRim8XwiiPDRzmsQUKhQLAsEqEBJhCAxSBwLZQH+EAIlEYZDAWboNj4AAIiEAhElYAhfnuYoclGAxHAqD4XGAE4EECAkPhAGojmkPgZGoIAsgcSpynACgEhEDBYEyAY"
                    s = s + "fFSEBhikGxSDKbgngIBgoCAAQ7F6IxoACDRCDwAIwg8SxsAqAYHAQWggAGDgaGAKxEgETIzECOoxkqeoAgUFwiHgbQggKHhwBGAYJHIU4AgOXRahuQQFBQcgr4SAjXgiAYLCoLAIkGERUBgIQxA+QoyEmRwGnqfBgAMHBSCADwDg0Jh4CAAIBgAGGKBCDoqikBYIAochrAGFRaCgAQEA2JgQA0IJmA6ApugYFoEBMaYAgmZh8GCBYSDoUBPjMAoansTAGBcVA4AEPINAQOAAEaDREAIYQCgWFATmgO5Hl0GAvCeCweEAYAugoNBgE0BYOiQcAUiaPpij8EBBjINTUi4IIHA4SwMAUEYSNUAxvm6Eg1j6GxwDBEoLDoI4oFcfxOggUA5j4boaBWBpJhKXABD8ZUuACBITkgGhpDmJRmnUYRahechQAGKoSHAHIuiGCZGASYYmhgagTk8OIQjcIBvCqHsNwdRAABAaOAKAwwyAtE4LAboqVnOmDSAoEANhBBVAeDABQ4wrACAIHASAwxXgFAIAAHZAQ"
                    .Picture = s
                    .Expanded = False
                    .ArrangeSiblingNodesAs = 1
                End With
                .Add "SubItem 1", "Key2"
                .Add "SubItem 2", "Key2"
            End With
            .EndUpdate
        End With
    End With
End With
ExMenu1.Refresh

The following C++ sample adds the Exontrol.ChartView component: 

#include "Item.h"
#include "Menu.h"
#include "Control.h"
#import 
	
CItem item = m_menu.GetItems().Add( " ActiveX ", COleVariant( (long)3 /*SubControl*/ ), COleVariant( (long)1234 ) );
CControl control = item.GetSubControl();
control.SetWidth( 256 );
control.SetHeight( 256 );
control.SetControlID( "Exontrol.ChartView" );
control.Create();
EXORGCHARTLib::IChartViewPtr spChart( control.GetObject() );
if ( spChart != NULL )
{
	spChart->BeginUpdate();
    spChart->BackColor = RGB(255, 255, 255);
	spChart->Appearance = EXORGCHARTLib::Sunken;
	spChart->HasButtons = EXORGCHARTLib::exWPlus;
	spChart->ButtonsAlign = EXORGCHARTLib::UpperLeft;
	spChart->PenWidthLink = 3;
	EXORGCHARTLib::INodePtr spRoot = spChart->Root;
    spRoot->Caption = "Root
Some information here.
Line 1:1
Line 2:2";
    spRoot->Image = 1;
    spRoot->AddAssistant ("Assistant node", vtMissing, vtMissing);
	EXORGCHARTLib::INodesPtr spNodes = spChart->Nodes;
	EXORGCHARTLib::INodePtr spNode1 = spNodes->Add("Item 1", vtMissing , "Key1", vtMissing, vtMissing);
    spNode1->HasButton = false;
	spNode1->LinkTo = "Key2";
	spNodes->Add("SubItem 1", "Key1", vtMissing, vtMissing, vtMissing );
	EXORGCHARTLib::INodePtr spNode2 = spNodes->Add("Sub Item 2", vtMissing, "Key2", vtMissing, vtMissing );
	CString s( "gBHJJGHA5MIgAEIe4AAAFhwQiAbCAbigbEsWGAlGA7Eo7HcbIowIpFHZQkZQKA7IsplErlBbLZFmEzLZlMpQmxbOE2mxwn06nZ7n0+PdFMtFOCFQp7pR7SFKQtPSFPTdTTdVq9ZTalralr1fWClWFjsi7s1nYtmYtrtjQt1vbdubdzujlublvF5eDleF9eD7v77fYBwmFw2HxGJxWLxmNx2PyGRyWTymVy2XzGZzWbzmdz2f0Gh0WjzsMAAhfIEAMMf4AFmmhOxIAI1r/BIcJBwEABAQHBQ2FDIOBgAIGB4YODAULCQiIB4cGxoXDQcJERITFBSVBYaICAyGQIQFhsbDAIIERYOCYEGCkaCiYoLDAyNCoEDxMKDAgG1YMZgQFGYpkE0F4vGITAYjGIpFAkEQhEgLBYhmYgDAWBhCBsFh8HgQJCASCYaFYcjqCGBAIBgKhCCwZB6kAAgFgkOBQAQYIAjWABDAqKxYDQcJxEKBgMCMJI0BAeBXiCRAIBGJA+A4RJAlIJoMCWM5sFwQIhkOBwKAsdw3AqFBaBiapOjqQI3A8ZpYHWK4ExgWAWG2YIBnSP4CAgIBGAwQQjAaTgXh8TAmlYDBigMAgtAyXQyiASJzmqA4CEEf5VlAIRim8XwiiPDRzmsQUKhQLAsEqEBJhCAxSBwLZQH+EAIlEYZDAWboNj4AAIiEAhElYAhfnuYoclGAxHAqD4XGAE4EECAkPhAGojmkPgZGoIAsgcSpynACgEhEDBYEyAY" );
    s = s + "fFSEBhikGxSDKbgngIBgoCAAQ7F6IxoACDRCDwAIwg8SxsAqAYHAQWggAGDgaGAKxEgETIzECOoxkqeoAgUFwiHgbQggKHhwBGAYJHIU4AgOXRahuQQFBQcgr4SAjXgiAYLCoLAIkGERUBgIQxA+QoyEmRwGnqfBgAMHBSCADwDg0Jh4CAAIBgAGGKBCDoqikBYIAochrAGFRaCgAQEA2JgQA0IJmA6ApugYFoEBMaYAgmZh8GCBYSDoUBPjMAoansTAGBcVA4AEPINAQOAAEaDREAIYQCgWFATmgO5Hl0GAvCeCweEAYAugoNBgE0BYOiQcAUiaPpij8EBBjINTUi4IIHA4SwMAUEYSNUAxvm6Eg1j6GxwDBEoLDoI4oFcfxOggUA5j4boaBWBpJhKXABD8ZUuACBITkgGhpDmJRmnUYRahechQAGKoSHAHIuiGCZGASYYmhgagTk8OIQjcIBvCqHsNwdRAABAaOAKAwwyAtE4LAboqVnOmDSAoEANhBBVAeDABQ4wrACAIHASAwxXgFAIAAHZAQ";
	spNode2->put_Picture( COleVariant( s ) );
	spNode2->Expanded = false;
	spNode2->ArrangeSiblingNodesAs = EXORGCHARTLib::exHorizontally;
	spNodes->Add("SubItem 1", "Key2", vtMissing, vtMissing, vtMissing );
	spNodes->Add("SubItem 2", "Key2", vtMissing, vtMissing, vtMissing );
	spChart->EndUpdate();
}
m_menu.Refresh();

The C++ sample requires calling the #import <exorgchart.dll> to import definitions for the Exontrol.ChartView component. It generates the EXORGCHARTLib namespace where you can find all objects of the ExOrgChart component.

The following VB.NET sample adds the Exontrol.ChartView component: 

With AxExMenu1.Items
    With .Add(" ActiveX ", EXMENULib.ItemTypeEnum.SubControl, 1234).SubControl
        .Width = 256
        .Height = 256
        .ControlID = "Exontrol.ChartView"
        .Create()
        With .Object
            .BeginUpdate()
            .BackColor = RGB(255, 255, 255)
            .Appearance = 2
            .HasButtons = 3
            .ButtonsAlign = 0
            .PenWidthLink = 3
            With .Root
                .Caption = "Root
Some information here.
Line 1:1
Line 2:2"
                .Image = 1
                .AddAssistant("Assistant node")
            End With
            With .Nodes
                With .Add("Item 1", , "Key1")
                    .HasButton = False
                    .LinkTo = "Key2"
                End With
                .Add("SubItem 1", "Key1")
                With .Add("Sub Item 2", , "Key2")
                    Dim s As String
                    s = "gBHJJGHA5MIgAEIe4AAAFhwQiAbCAbigbEsWGAlGA7Eo7HcbIowIpFHZQkZQKA7IsplErlBbLZFmEzLZlMpQmxbOE2mxwn06nZ7n0+PdFMtFOCFQp7pR7SFKQtPSFPTdTTdVq9ZTalralr1fWClWFjsi7s1nYtmYtrtjQt1vbdubdzujlublvF5eDleF9eD7v77fYBwmFw2HxGJxWLxmNx2PyGRyWTymVy2XzGZzWbzmdz2f0Gh0WjzsMAAhfIEAMMf4AFmmhOxIAI1r/BIcJBwEABAQHBQ2FDIOBgAIGB4YODAULCQiIB4cGxoXDQcJERITFBSVBYaICAyGQIQFhsbDAIIERYOCYEGCkaCiYoLDAyNCoEDxMKDAgG1YMZgQFGYpkE0F4vGITAYjGIpFAkEQhEgLBYhmYgDAWBhCBsFh8HgQJCASCYaFYcjqCGBAIBgKhCCwZB6kAAgFgkOBQAQYIAjWABDAqKxYDQcJxEKBgMCMJI0BAeBXiCRAIBGJA+A4RJAlIJoMCWM5sFwQIhkOBwKAsdw3AqFBaBiapOjqQI3A8ZpYHWK4ExgWAWG2YIBnSP4CAgIBGAwQQjAaTgXh8TAmlYDBigMAgtAyXQyiASJzmqA4CEEf5VlAIRim8XwiiPDRzmsQUKhQLAsEqEBJhCAxSBwLZQH+EAIlEYZDAWboNj4AAIiEAhElYAhfnuYoclGAxHAqD4XGAE4EECAkPhAGojmkPgZGoIAsgcSpynACgEhEDBYEyAY"
                    s = s + "fFSEBhikGxSDKbgngIBgoCAAQ7F6IxoACDRCDwAIwg8SxsAqAYHAQWggAGDgaGAKxEgETIzECOoxkqeoAgUFwiHgbQggKHhwBGAYJHIU4AgOXRahuQQFBQcgr4SAjXgiAYLCoLAIkGERUBgIQxA+QoyEmRwGnqfBgAMHBSCADwDg0Jh4CAAIBgAGGKBCDoqikBYIAochrAGFRaCgAQEA2JgQA0IJmA6ApugYFoEBMaYAgmZh8GCBYSDoUBPjMAoansTAGBcVA4AEPINAQOAAEaDREAIYQCgWFATmgO5Hl0GAvCeCweEAYAugoNBgE0BYOiQcAUiaPpij8EBBjINTUi4IIHA4SwMAUEYSNUAxvm6Eg1j6GxwDBEoLDoI4oFcfxOggUA5j4boaBWBpJhKXABD8ZUuACBITkgGhpDmJRmnUYRahechQAGKoSHAHIuiGCZGASYYmhgagTk8OIQjcIBvCqHsNwdRAABAaOAKAwwyAtE4LAboqVnOmDSAoEANhBBVAeDABQ4wrACAIHASAwxXgFAIAAHZAQ"
                    .Picture = s
                    .Expanded = False
                    .ArrangeSiblingNodesAs = 1
                End With
                .Add("SubItem 1", "Key2")
                .Add("SubItem 2", "Key2")
            End With
            .EndUpdate()
        End With
    End With
End With
AxExMenu1.CtlRefresh()

The following C# sample adds the Exontrol.ChartView component: 

EXMENULib.Menu items = axExMenu1.Items;
EXMENULib.Control control = items.Add(" ActiveX ", EXMENULib.ItemTypeEnum.SubControl, 1234).SubControl;
control.Width = 256;
control.Height = 256;
control.ControlID = "Exontrol.ChartView";
control.Create();
EXORGCHARTLib.ChartView chart = control.Object as EXORGCHARTLib.ChartView;
if (chart != null)
{
	chart.BeginUpdate();
	chart.BackColor = ToUInt32(Color.White);
	chart.Appearance = EXORGCHARTLib.AppearanceEnum.Sunken;
	chart.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exWPlus;
	chart.ButtonsAlign = EXORGCHARTLib.PictureDisplayEnum.UpperLeft;
	chart.PenWidthLink = 3;
	EXORGCHARTLib.Node node = chart.Root;
    node.Caption = "Root
Some information here.
Line 1:1
Line 2:2";
    node.Image = 1;
    node.AddAssistant ("Assistant node", null, null);
	EXORGCHARTLib.Nodes nodes = chart.Nodes;
	EXORGCHARTLib.Node node1 = nodes.Add("Item 1", null, "Key1", null, null);
	node1.HasButton = false;
    node1.LinkTo = "Key2";
    nodes.Add("SubItem 1", "Key1", "Key3", null, null);
    EXORGCHARTLib.Node node2 = nodes.Add("Sub Item 2", null, "Key2", null, null);
    String s = "gBHJJGHA5MIgAEIe4AAAFhwQiAbCAbigbEsWGAlGA7Eo7HcbIowIpFHZQkZQKA7IsplErlBbLZFmEzLZlMpQmxbOE2mxwn06nZ7n0+PdFMtFOCFQp7pR7SFKQtPSFPTdTTdVq9ZTalralr1fWClWFjsi7s1nYtmYtrtjQt1vbdubdzujlublvF5eDleF9eD7v77fYBwmFw2HxGJxWLxmNx2PyGRyWTymVy2XzGZzWbzmdz2f0Gh0WjzsMAAhfIEAMMf4AFmmhOxIAI1r/BIcJBwEABAQHBQ2FDIOBgAIGB4YODAULCQiIB4cGxoXDQcJERITFBSVBYaICAyGQIQFhsbDAIIERYOCYEGCkaCiYoLDAyNCoEDxMKDAgG1YMZgQFGYpkE0F4vGITAYjGIpFAkEQhEgLBYhmYgDAWBhCBsFh8HgQJCASCYaFYcjqCGBAIBgKhCCwZB6kAAgFgkOBQAQYIAjWABDAqKxYDQcJxEKBgMCMJI0BAeBXiCRAIBGJA+A4RJAlIJoMCWM5sFwQIhkOBwKAsdw3AqFBaBiapOjqQI3A8ZpYHWK4ExgWAWG2YIBnSP4CAgIBGAwQQjAaTgXh8TAmlYDBigMAgtAyXQyiASJzmqA4CEEf5VlAIRim8XwiiPDRzmsQUKhQLAsEqEBJhCAxSBwLZQH+EAIlEYZDAWboNj4AAIiEAhElYAhfnuYoclGAxHAqD4XGAE4EECAkPhAGojmkPgZGoIAsgcSpynACgEhEDBYEyAY";
	s = s + "fFSEBhikGxSDKbgngIBgoCAAQ7F6IxoACDRCDwAIwg8SxsAqAYHAQWggAGDgaGAKxEgETIzECOoxkqeoAgUFwiHgbQggKHhwBGAYJHIU4AgOXRahuQQFBQcgr4SAjXgiAYLCoLAIkGERUBgIQxA+QoyEmRwGnqfBgAMHBSCADwDg0Jh4CAAIBgAGGKBCDoqikBYIAochrAGFRaCgAQEA2JgQA0IJmA6ApugYFoEBMaYAgmZh8GCBYSDoUBPjMAoansTAGBcVA4AEPINAQOAAEaDREAIYQCgWFATmgO5Hl0GAvCeCweEAYAugoNBgE0BYOiQcAUiaPpij8EBBjINTUi4IIHA4SwMAUEYSNUAxvm6Eg1j6GxwDBEoLDoI4oFcfxOggUA5j4boaBWBpJhKXABD8ZUuACBITkgGhpDmJRmnUYRahechQAGKoSHAHIuiGCZGASYYmhgagTk8OIQjcIBvCqHsNwdRAABAaOAKAwwyAtE4LAboqVnOmDSAoEANhBBVAeDABQ4wrACAIHASAwxXgFAIAAHZAQ";
	node2.Picture = s;
	node2.Expanded = false;
    node2.ArrangeSiblingNodesAs = EXORGCHARTLib.ArrangeSiblingEnum.exHorizontally;
    nodes.Add("SubItem 1", "Key2", "Key4", null, null);
	nodes.Add("SubItem 2", "Key2", "Key5", null, null);
	chart.EndUpdate();
}
axExMenu1.CtlRefresh();

The C# sample requires a new reference to the Exontrol's ExOrgChart component. Select the Project\Add Reference... and Select COM\ExOrgChart 1.0 Control Library. Once that the component is referred, the EXORGCHARTLib namespace is created, where we can find all objects and definitions for the component being inserted.

The ToUInt32 function converts a Color expression to OLE_COLOR: 

private UInt32 ToUInt32(Color c)
{
	long i;
	i = c.R;
	i = i + 256 * c.G;
	i = i + 256 * 256 * c.B;
	return Convert.ToUInt32(i);
}

The following VFP sample adds the Exontrol.ChartView component:

With thisform.ExMenu1.Items
    With .Add(" ActiveX ", 3, 1234).SubControl && EXMENULibCtl.ItemTypeEnum.SubControl
        .Width = 256
        .Height = 256
        .ControlID = "Exontrol.ChartView"
        .Create
        With .Object
            .BeginUpdate
            .BackColor = RGB(255, 255, 255)
            .Appearance = 2
            .HasButtons = 3
            .ButtonsAlign = 0
            .PenWidthLink = 3
            With .Root
                .Caption = "Root
Some information here.
Line 1:1
Line 2:2"
                .Image = 1
                .AddAssistant ("Assistant node")
            EndWith
            With .Nodes
                With .Add("Item 1", , "Key1")
                    .HasButton = .f.
                    .LinkTo = "Key2"
                EndWith
                .Add("SubItem 1", "Key1")
                With .Add("Sub Item 2", , "Key2")
                    local s
					s = "gBHJJGHA5MIgAEIe4AAAFhwQiAbCAbigbEsWGAlGA7Eo7HcbIowIpFHZQkZQKA7IsplErlBbLZFmEzLZlMpQmxbOE2mxwn06nZ7n0+PdFMtFOCFQp7pR7SFKQtPSFPTdTTdVq9ZTalralr1fWClWFjsi7s1nYtmYtrtjQt1vbdubdzujlublvF5eDleF9eD7v77fYBwm"
					s = s + "Fw2HxGJxWLxmNx2PyGRyWTymVy2XzGZzWbzmdz2f0Gh0WjzsMAAhfIEAMMf4AFmmhOxIAI1r/BIcJBwEABAQHBQ2FDIOBgAIGB4YODAULCQiIB4cGxoXDQcJERITFBSVBYaICAyGQIQFhsbDAIIERYOCYEGCkaCiYoLDAyNCoEDxMKDAgG1YMZgQFGYpkE0F4vGITAYj"
					s = s + "GIpFAkEQhEgLBYhmYgDAWBhCBsFh8HgQJCASCYaFYcjqCGBAIBgKhCCwZB6kAAgFgkOBQAQYIAjWABDAqKxYDQcJxEKBgMCMJI0BAeBXiCRAIBGJA+A4RJAlIJoMCWM5sFwQIhkOBwKAsdw3AqFBaBiapOjqQI3A8ZpYHWK4ExgWAWG2YIBnSP4CAgIBGAwQQjAaTgXh"
					s = s + "8TAmlYDBigMAgtAyXQyiASJzmqA4CEEf5VlAIRim8XwiiPDRzmsQUKhQLAsEqEBJhCAxSBwLZQH+EAIlEYZDAWboNj4AAIiEAhElYAhfnuYoclGAxHAqD4XGAE4EECAkPhAGojmkPgZGoIAsgcSpynACgEhEDBYEyAYfFSEBhikGxSDKbgngIBgoCAAQ7F6IxoACDRCD"
					s = s + "wAIwg8SxsAqAYHAQWggAGDgaGAKxEgETIzECOoxkqeoAgUFwiHgbQggKHhwBGAYJHIU4AgOXRahuQQFBQcgr4SAjXgiAYLCoLAIkGERUBgIQxA+QoyEmRwGnqfBgAMHBSCADwDg0Jh4CAAIBgAGGKBCDoqikBYIAochrAGFRaCgAQEA2JgQA0IJmA6ApugYFoEBMaYAg"
					s = s + "mZh8GCBYSDoUBPjMAoansTAGBcVA4AEPINAQOAAEaDREAIYQCgWFATmgO5Hl0GAvCeCweEAYAugoNBgE0BYOiQcAUiaPpij8EBBjINTUi4IIHA4SwMAUEYSNUAxvm6Eg1j6GxwDBEoLDoI4oFcfxOggUA5j4boaBWBpJhKXABD8ZUuACBITkgGhpDmJRmnUYRahechQA"
					s = s + "GKoSHAHIuiGCZGASYYmhgagTk8OIQjcIBvCqHsNwdRAABAaOAKAwwyAtE4LAboqVnOmDSAoEANhBBVAeDABQ4wrACAIHASAwxXgFAIAAHZAQ"
                    .Picture = s
                    .Expanded = .f.
                    .ArrangeSiblingNodesAs = 1
                EndWith
                .Add("SubItem 1", "Key2")
                .Add("SubItem 2", "Key2")
            EndWith
            .EndUpdate
        EndWith
    EndWith
EndWith
thisform.ExMenu1.Object.Refresh