Exontrol.COM Software - HOW TO DO in Visual FoxPro 9

1. How do I put a picture on the control's background

Visual FoxPro 9
with thisform.ExplorerBar1 .Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") endwith

2. How do I put a picture on the control's left top corner

Visual FoxPro 9
with thisform.ExplorerBar1 .Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 0 endwith

3. How do I put a picture on the control's right top corner

Visual FoxPro 9
with thisform.ExplorerBar1 .Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 2 endwith

4. How do I put a picture on the control's center top side

Visual FoxPro 9
with thisform.ExplorerBar1 .Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 1 endwith

5. How do I put a picture on the control's center left bottom side

Visual FoxPro 9
with thisform.ExplorerBar1 .Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 32 endwith

6. How do I put a picture on the control's center right bottom side

Visual FoxPro 9
with thisform.ExplorerBar1 .Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 34 endwith

7. How do I resize/stretch a picture on the control's background

Visual FoxPro 9
with thisform.ExplorerBar1 .Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 49 endwith

8. How do I put a picture on the center of the control

Visual FoxPro 9
with thisform.ExplorerBar1 .Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 17 endwith

9. How do I remove the control's border

Visual FoxPro 9
with thisform.ExplorerBar1 .Appearance = 0 endwith

10. How do I change the control's border, using your EBN files

Visual FoxPro 9
with thisform.ExplorerBar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Appearance = 16777216 endwith

11. How do I change the control's background color

Visual FoxPro 9
with thisform.ExplorerBar1 .BackColor = 13158600 endwith

12. How do I change the control's foreground color

Visual FoxPro 9
with thisform.ExplorerBar1 .ForeColor = 255 with .Groups.Add("Group 1") .AddItem("Item 1") .Expanded = .T. endwith endwith

13. How can I change the control's font

Visual FoxPro 9
with thisform.ExplorerBar1 .Font.Name = "Tahoma" .Groups.Add("Group 1") endwith

14. How do I change the control's foreground color

Visual FoxPro 9
with thisform.ExplorerBar1 .ForeColor = 16711680 .ForeColorGroup = 255 with .Groups.Add("Group 1") .AddItem("Item 1") .Expanded = .T. endwith .Groups.Add("Group 2") endwith

15. How do I change the background color for the groups

Visual FoxPro 9
with thisform.ExplorerBar1 .BackColorGroup = 255 .Groups.Add("Group 1") endwith

16. How do I change the background color for the groups

Visual FoxPro 9
with thisform.ExplorerBar1 .BackColorGroup = 255 .BackColorGroup2 = 255 .Groups.Add("Group 1") endwith

17. How do I change the visual appearance of the groups, using your EBN files

Visual FoxPro 9
with thisform.ExplorerBar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .BackColorGroup = 16777216 .Groups.Add("Group 1") .Groups.Add("Group 2") endwith

18. How do I change the visual appearance of the groups

Visual FoxPro 9
with thisform.ExplorerBar1 .GroupAppearance = 1 .Groups.Add("Group 1") .Groups.Add("Group 2") endwith

19. How do I specify the height of the groups

Visual FoxPro 9
with thisform.ExplorerBar1 .GroupHeight = 40 .Groups.Add("Group 1") .Groups.Add("Group 2") endwith

20. How do I display 32x32 icons

Visual FoxPro 9
with thisform.ExplorerBar1 .SmallIcons = .F. .GroupHeight = 36 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Groups.Add("Group 1").Image = 1 endwith

Visual FoxPro 9

with thisform.ExplorerBar1
	.SmallIcons = .F.
	.GroupHeight = 36
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("Group 1").Image = 1
endwith

21. How do I display icons

Visual FoxPro 9
with thisform.ExplorerBar1 .SmallIcons = .T. var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Groups.Add("Group 1").Image = 1 endwith

Visual FoxPro 9

with thisform.ExplorerBar1
	.SmallIcons = .T.
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("Group 1").Image = 1
endwith

22. How do I decrease the delay to scroll a group

Visual FoxPro 9
with thisform.ExplorerBar1 .DelayScroll = 0 with .Groups.Add("Group 1") .AddItem("Item 1") .Expanded = .T. endwith with .Groups.Add("Group 2") .AddItem("Item 2") .Expanded = .T. endwith endwith

23. Is there any function to avoid painting the control while adding multiple items and groups

Visual FoxPro 9
with thisform.ExplorerBar1 .BeginUpdate with .Groups.Add("Group 1") .AddItem("Item 1") .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith

24. How do I specify the way the control highlight the items in the group

Visual FoxPro 9
with thisform.ExplorerBar1 .BeginUpdate .HighlightItemType = 0 with .Groups.Add("Group 1") .AddItem("Item 1") .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith

25. How do I specify to highlight the items in the group, when the cursor hovers the item

Visual FoxPro 9
with thisform.ExplorerBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .HighlightItemType = 1 with .Groups.Add("Group 1") .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith

Visual FoxPro 9

with thisform.ExplorerBar1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 1
	with .Groups.Add("Group 1")
		.Expanded = .T.
	endwith
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith

26. How do I specify to highlight the items in the group, when the cursor hovers the item

Visual FoxPro 9
with thisform.ExplorerBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .HighlightItemType = 2 with .Groups.Add("Group 1") .AddItem("Item 1").Image = 1 .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith

Visual FoxPro 9

with thisform.ExplorerBar1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 2
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = .T.
	endwith
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith

27. How do I specify to highlight the items in the group, when the cursor hovers the item

Visual FoxPro 9
with thisform.ExplorerBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .HighlightItemType = 3 with .Groups.Add("Group 1") .AddItem("Item 1").Image = 1 .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith

Visual FoxPro 9

with thisform.ExplorerBar1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 3
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = .T.
	endwith
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith

28. How do I specify to highlight the items in the group, when the cursor hovers the item

Visual FoxPro 9
with thisform.ExplorerBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .HighlightItemType = 4 with .Groups.Add("Group 1") .AddItem("Item 1").Image = 1 .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith

Visual FoxPro 9

with thisform.ExplorerBar1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 4
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = .T.
	endwith
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith

31. How do I specify width or the height of the control's borders

Visual FoxPro 9
with thisform.ExplorerBar1 .BeginUpdate .Appearance = 0 .BorderWidth = 0 .BorderHeight = 0 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .HighlightItemType = 4 with .Groups.Add("Group 1") .AddItem("Item 1").Image = 1 .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith

Visual FoxPro 9

with thisform.ExplorerBar1
	.BeginUpdate
	.Appearance = 0
	.BorderWidth = 0
	.BorderHeight = 0
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 4
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = .T.
	endwith
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith

32. How do I remove the control's borders

Visual FoxPro 9
with thisform.ExplorerBar1 .BeginUpdate .Appearance = 0 .BorderWidth = 0 .BorderHeight = 0 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .HighlightItemType = 4 with .Groups.Add("Group 1") .AddItem("Item 1").Image = 1 .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith

Visual FoxPro 9

with thisform.ExplorerBar1
	.BeginUpdate
	.Appearance = 0
	.BorderWidth = 0
	.BorderHeight = 0
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 4
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = .T.
	endwith
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith

33. How can I expand or collapse a group when I click only its right icon

Visual FoxPro 9
with thisform.ExplorerBar1 .BeginUpdate .ExpandOnClick = .F. var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .HighlightItemType = 4 with .Groups.Add("Group 1") .AddItem("Item 1").Image = 1 .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith

Visual FoxPro 9

with thisform.ExplorerBar1
	.BeginUpdate
	.ExpandOnClick = .F.
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 4
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = .T.
	endwith
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith

34. How do I specify the color to highlight the item

Visual FoxPro 9
with thisform.ExplorerBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .HyperLinkColor = 255 .HighlightItemType = 4 with .Groups.Add("Group 1") .AddItem("Item 1").Image = 1 .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith

Visual FoxPro 9

with thisform.ExplorerBar1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HyperLinkColor = 255
	.HighlightItemType = 4
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = .T.
	endwith
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith

35. Is there any option to stop using the hand shape cursor, when the cursor hovers an item

Visual FoxPro 9
with thisform.ExplorerBar1 .BeginUpdate .HandCursor = .F. var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .HighlightItemType = 0 with .Groups.Add("Group 1") .AddItem("Item 1").Image = 1 .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith

Visual FoxPro 9

with thisform.ExplorerBar1
	.BeginUpdate
	.HandCursor = .F.
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 0
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = .T.
	endwith
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith

36. How do I hide the icons in the right side of the group, the expand / collapse buttons

Visual FoxPro 9
with thisform.ExplorerBar1 .BeginUpdate .DisplayExpandIcon = .F. var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) with .Groups.Add("Group 1") .AddItem("Item 1").Image = 1 .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith

Visual FoxPro 9

with thisform.ExplorerBar1
	.BeginUpdate
	.DisplayExpandIcon = .F.
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = .T.
	endwith
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith

37. How do I enable or disable the control

Visual FoxPro 9
with thisform.ExplorerBar1 .Enabled = .F. with .Groups.Add("Group 1") .AddItem("Item 1").Image = 1 .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") endwith

38. How can I change the expand / collapse buttons

Visual FoxPro 9
with thisform.ExplorerBar1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .ExpandIcon(.T.) = 1 .ExpandIcon(.F.) = 2 with .Groups.Add("Group 1") .AddItem("Item 1") .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith

Visual FoxPro 9

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ExpandIcon(.T.) = 1
	.ExpandIcon(.F.) = 2
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.Expanded = .T.
	endwith
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith

39. How do I specify the distance between two groups

Visual FoxPro 9
with thisform.ExplorerBar1 .BorderGroupHeight = 0 .Groups.Add("Group 1") .Groups.Add("Group 2").AddItem("Item 2") endwith

40. How can I show a tooltip when the item exceeds its area, so ... are displayed

Visual FoxPro 9
with thisform.ExplorerBar1 .AllowTooltip = .T. with .Groups.Add("Group 1") .Expanded = .T. .AddItem("This isa very long text that should break the control in several pieces") endwith endwith

41. How can I hide a tooltip when the item exceeds its area, so ... are displayed

Visual FoxPro 9
with thisform.ExplorerBar1 .AllowTooltip = .F. with .Groups.Add("Group 1") .Expanded = .T. .AddItem("This isa very long text that should break the control in several pieces") endwith endwith

42. How do I call your x-script language

Visual FoxPro 9
with thisform.ExplorerBar1 .Template = "BackColor = RGB(255,0,0)" endwith

43. How do I call your x-script language

Visual FoxPro 9
with thisform.ExplorerBar1 with .ExecuteTemplate("Groups.Add(`Group 1`)") .AddItem("Item 1") .Expanded = .T. endwith endwith

44. How do I show the tooltip quicker

Visual FoxPro 9
with thisform.ExplorerBar1 .ToolTipDelay = 1 .Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group." endwith

45. How do I disable showing the tooltip for all control

Visual FoxPro 9
with thisform.ExplorerBar1 .ToolTipDelay = 0 .Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group." endwith

46. Can I change the font for the tooltip

Visual FoxPro 9
with thisform.ExplorerBar1 .ToolTipDelay = 1 with .ToolTipFont .Name = "Tahoma" .Size = 14 endwith .ToolTipWidth = 364 .Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group." endwith

Visual FoxPro 9

with thisform.ExplorerBar1
	.ToolTipDelay = 1
	with .ToolTipFont
		.Name = "Tahoma"
		.Size = 14
	endwith
	.ToolTipWidth = 364
	.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
endwith

47. Can I change the font for the tooltip

Visual FoxPro 9
with thisform.ExplorerBar1 .ToolTipDelay = 1 .ToolTipWidth = 364 var_s = "<font Tahoma>This is a bit of text that's shown when the cursor hovers the group.</font> Back to" var_s = var_s + " the normal font" .Groups.Add("ToolTip").ToolTip = var_s endwith

Visual FoxPro 9

with thisform.ExplorerBar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	var_s = "<font Tahoma>This is a bit of text that's shown when the cursor hovers the group.</font> Back to"
	var_s = var_s + " the normal font"
	.Groups.Add("ToolTip").ToolTip = var_s
endwith

48. Can I change the foreground color for the tooltip

Visual FoxPro 9
with thisform.ExplorerBar1 .ToolTipDelay = 1 .ToolTipWidth = 364 .Groups.Add("ToolTip").ToolTip = "<fgcolor=FF0000>This is a bit of text that's shown when the cursor hovers the group.</fgcolor>" endwith

Visual FoxPro 9

with thisform.ExplorerBar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Groups.Add("ToolTip").ToolTip = "<fgcolor=FF0000>This is a bit of text that's shown when the cursor hovers the group.</fgcolor>"
endwith

49. Can I change the forecolor for the tooltip

Visual FoxPro 9
with thisform.ExplorerBar1 .ToolTipDelay = 1 .ToolTipWidth = 364 .Background(66) = 255 .Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group." endwith

50. Does the tooltip support HTML format

Visual FoxPro 9
with thisform.ExplorerBar1 .ToolTipDelay = 1 .ToolTipWidth = 364 var_s = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>group</fgcol" var_s = var_s + "or>" .Groups.Add("ToolTip").ToolTip = var_s endwith

Visual FoxPro 9

with thisform.ExplorerBar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	var_s = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>group</fgcol"
	var_s = var_s + "or>"
	.Groups.Add("ToolTip").ToolTip = var_s
endwith

51. Can I change the background color for the tooltip

Visual FoxPro 9

with thisform.ExplorerBar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Background(65) = 255
	.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
endwith

52. Can I change the default border of the tooltip, using your EBN files

Visual FoxPro 9

with thisform.ExplorerBar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Background(64) = 16777216
	.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
endwith

53. How do I let the tooltip being displayed longer

Visual FoxPro 9
with thisform.ExplorerBar1 .ToolTipPopDelay = 10000 .Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group." endwith

54. I've seen that the width of the tooltip is variable. Can I make it larger

Visual FoxPro 9
with thisform.ExplorerBar1 .ToolTipWidth = 328 .Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group." endwith

55. How can show or hide the focus rectangle

Visual FoxPro 9
with thisform.ExplorerBar1 .ShowFocusRect = .F. with .Groups.Add("Group 1") .Expanded = .T. .AddItem("Item 1") endwith endwith

56. How do I force refreshing the control

Visual FoxPro 9
with thisform.ExplorerBar1 with .Groups.Add("Group 1") .Expanded = .T. .AddItem("Item 1") endwith .Refresh endwith

57. How can I add several pictures to a group

Visual FoxPro 9

with thisform.ExplorerBar1
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.GroupHeight = 48
	.Groups.Add("<img>pic1</img> text <img>pic2</img>").CaptionFormat = 1
endwith

58. How can I add several pictures to a group

Visual FoxPro 9

with thisform.ExplorerBar1
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.GroupHeight = 48
	with .Groups.Add("<img>pic1</img> text <img>pic2</img>")
		.CaptionFormat = 1
		.Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Expanded = .T.
	endwith
endwith

59. How can I add several pictures and icons to a group

Visual FoxPro 9

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.GroupHeight = 48
	.Groups.Add("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>").CaptionFormat = 1
endwith

60. How can I add several pictures to a group

Visual FoxPro 9

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.GroupHeight = 48
	with .Groups.Add("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
		.Image = 2
		.CaptionFormat = 1
		.Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Expanded = .T.
	endwith
endwith

61. How can I add several pictures to an item

Visual FoxPro 9

with thisform.ExplorerBar1
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	with .Groups.Add("Group 1")
		.ItemHeight = 48
		.AddItem("<img>pic1</img> text <img>pic2</img>").CaptionFormat = 1
		.Expanded = .T.
	endwith
endwith

62. How can I add several pictures and icons to an item

Visual FoxPro 9

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	with .Groups.Add("Group 1")
		.ItemHeight = 48
		with .AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
			.Image = 2
			.CaptionFormat = 1
		endwith
		.Expanded = .T.
	endwith
endwith

63. How can I add several pictures and icons to an item

Visual FoxPro 9

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	with .Groups.Add("Group 1")
		.ItemHeight = 48
		with .AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
			.Image = 2
			.CaptionFormat = 1
		endwith
		.Expanded = .T.
	endwith
endwith

64. Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

Visual FoxPro 9

with thisform.ExplorerBar1
	.HighlightItemType = 0
	.HandCursor = .F.
	.FormatAnchor(.T.) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	with .Groups.Add("Group 1")
		.AddItem("Item <a1><b>1</b></a>").CaptionFormat = 1
		.Expanded = .T.
	endwith
endwith

65. Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

Visual FoxPro 9
with thisform.ExplorerBar1 .HighlightItemType = 0 .HandCursor = .F. .FormatAnchor(.T.) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>" .Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = 1 endwith

66. Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

Visual FoxPro 9

with thisform.ExplorerBar1
	.FormatAnchor(.F.) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	.HighlightItemType = 0
	.HandCursor = .F.
	with .Groups.Add("Group 1")
		.AddItem("Item <a1><b>1</b></a>").CaptionFormat = 1
		.Expanded = .T.
	endwith
endwith

67. Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

Visual FoxPro 9
with thisform.ExplorerBar1 .FormatAnchor(.F.) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>" .HighlightItemType = 0 .HandCursor = .F. .Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = 1 endwith

68. How do I access the groups collection

Visual FoxPro 9
with thisform.ExplorerBar1 .Groups.Add("Group 1") endwith

69. How do I show or hide the shortcut bar

Visual FoxPro 9

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutCount = 1
endwith

70. How do I select a shortcut

Visual FoxPro 9

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutCount = 1
	.SelectShortcut = "Set <img>2</img>"
endwith

71. How do I specify the height of the shortcut bar

Visual FoxPro 9

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutCount = 1
	.ShortcutBarHeight = 16
endwith

72. How can I enable or disable resizing the shortcut bar

Visual FoxPro 9

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutCount = 1
	.AllowResizeShortcutBar = .F.
endwith

73. How do I change the icon for the expanding or collapsing the shortcut bar

Visual FoxPro 9

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutImage = 3
endwith

74. How can I programmatically change expand or collapse the shortcut bar

Visual FoxPro 9

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutCount = 1
endwith

75. How do I change the background color in the shortcut bar

Visual FoxPro 9

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutBarBackColor = 255
endwith

76. How can I change the visual appearance of the shortcut bar, using your EBN files

Visual FoxPro 9

with thisform.ExplorerBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutBarBackColor = 16777216
endwith

77. How do I change the selection background color in the shortcut bar

Visual FoxPro 9

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutBarSelBackColor = 255
endwith

78. How can I change the visual appearance of the shortcut bar, using your EBN files

Visual FoxPro 9

with thisform.ExplorerBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutBarSelBackColor = 16777216
endwith

79. How do I change the selection background color in the shortcut bar

Visual FoxPro 9

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutBarSelCaptionBackColor = 255
	.ExpandShortcutCount = 1
endwith

80. How can I change the visual appearance of the shortcut bar, using your EBN files

Visual FoxPro 9

with thisform.ExplorerBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutBarSelCaptionBackColor = 16777216
	.ExpandShortcutCount = 1
endwith

81. How do I change the background color of the separator between groups and the shortcut bar

Visual FoxPro 9

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutResizeBackColor = 255
	.ExpandShortcutCount = 1
endwith

82. How can I change the visual appearance of the separator between groups and the shortcut bar, using your EBN files

Visual FoxPro 9

with thisform.ExplorerBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutResizeBackColor = 16777216
	.ExpandShortcutCount = 1
endwith

83. How can I change the visual appearance of the shortcut bar, using EBN files

Visual FoxPro 9

with thisform.ExplorerBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutResizeBackColor = 33554432
	.ShortcutBarSelCaptionBackColor = 16777216
	.ShortcutBarSelBackColor = 16777216
	.BackColorGroup = 16777216
endwith

84. How can I display pictures instead icons, in the shortcut bar

Visual FoxPro 9

with thisform.ExplorerBar1
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set 1"
	.Groups.Add("Group 2").Shortcut = "Set 1"
	.Groups.Add("Group 3").Shortcut = "Set 2"
	.Groups.Add("Group 4").Shortcut = "Set 2"
	.ShortcutPicture("Set 1") = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.ShortcutPicture("Set 2") = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	.ShortcutBarHeight = 44
endwith

85. How can I display pictures with a custom size, instead icons, in the shortcut bar

Visual FoxPro 9

with thisform.ExplorerBar1
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set 1"
	.Groups.Add("Group 2").Shortcut = "Set 1"
	.Groups.Add("Group 3").Shortcut = "Set 2"
	.Groups.Add("Group 4").Shortcut = "Set 2"
	.ShortcutPicture("Set 1") = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.ShortcutPicture("Set 2") = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	.ShortcutPictureWidth = 32
	.ShortcutPictureHeight = 32
	.ShortcutBarHeight = 32
endwith

86. How do I count the number of groups

Visual FoxPro 9
with thisform.ExplorerBar1 with .Groups .Add("Group 1") .Add("Group 2") .Add("Group 3") .Add(.Count) endwith endwith

87. How can I add a group

Visual FoxPro 9
with thisform.ExplorerBar1 with .Groups.Add("Group 1") .AddItem("Item 1") .AddItem("Item 2") .Expanded = .T. endwith endwith

88. How can I remove a group

Visual FoxPro 9
with thisform.ExplorerBar1 with .Groups .Add("Group 1") .Add("Group 2") .Add("Group 3") .Remove(1) endwith endwith

89. How can I clear the groups collection

Visual FoxPro 9
with thisform.ExplorerBar1 with .Groups .Add("Group 1") .Add("Group 2") .Add("Group 3") .Clear endwith endwith

90. How can I access a group

Visual FoxPro 9
with thisform.ExplorerBar1 with .Groups .Add("Group 1") .Add("Group 2") .Add("Group 3") .Item(1).Bold = .T. endwith endwith

91. How can I access a group by position

Visual FoxPro 9
with thisform.ExplorerBar1 with .Groups .Add("Group 1") .Add("Group 2") .Add("Group 3") .ItemByPos(1).Bold = .T. endwith endwith

92. How can I get the groups as they are listed

Visual FoxPro 9
with thisform.ExplorerBar1 with .Groups .Add("Group 1") .Add("Group 2") .Add("Group 3") endwith endwith

93. How can I add a new item to a group

Visual FoxPro 9
with thisform.ExplorerBar1 with .Groups.Add("Group 1") .AddItem("Item 1") .Expanded = .T. endwith endwith

94. How can I add a new item to a group

Visual FoxPro 9
with thisform.ExplorerBar1 .Groups.Add("Group 1").AddItem("Item 1") endwith

95. How can I add a new item to a group

Visual FoxPro 9

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1")
		.AddItem("Item 1",1)
		.Expanded = .T.
	endwith
endwith

96. How can I remove an item, from a group

Visual FoxPro 9
with thisform.ExplorerBar1 with .Groups.Add("Group 1") .AddItem("Item 1") .AddItem("Item 2") .AddItem("Item 3") .RemoveItem(1) .Expanded = .T. endwith endwith

97. How can I remove all items, from a group

Visual FoxPro 9
with thisform.ExplorerBar1 with .Groups.Add("Group 1") .AddItem("Item 1") .AddItem("Item 2") .AddItem("Item 3") .Clear .Expanded = .T. endwith endwith

98. How can I access an item in a group

Visual FoxPro 9
with thisform.ExplorerBar1 with .Groups.Add("Group 1") .AddItem("Item 1") .AddItem("Item 2") .AddItem("Item 3") .Item(1).Bold = .T. .Expanded = .T. endwith endwith

99. How can I get the number or count of items in a group

Visual FoxPro 9
with thisform.ExplorerBar1 with .Groups.Add("Group 1") .AddItem("Item 1") .AddItem("Item 2") .AddItem("Item 3") .AddItem(.Count) .Expanded = .T. endwith endwith

100. How can I change the group's caption

Visual FoxPro 9
with thisform.ExplorerBar1 with .Groups.Add("Group 1") .AddItem("Item 1") .AddItem("Item 2") .AddItem("Item 3") .Caption = "new caption" .Expanded = .T. endwith endwith

101. How can I change the position of a group

Visual FoxPro 9
with thisform.ExplorerBar1 .Groups.Add("Group 1") .Groups.Add("Group 2") .Groups.Add("Group 3").Position = 0 endwith

102. How can I access an item by its position

Visual FoxPro 9
with thisform.ExplorerBar1 with .Groups.Add("Group 1") .AddItem("Item 1") .AddItem("Item 2") .AddItem("Item 3").Position = 0 .ItemByPos(1).Bold = .T. .Expanded = .T. endwith endwith

103. How can I display an icon in the group's caption

Visual FoxPro 9

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("Group 1").Image = 1
endwith

104. How can I display an icon in the group's caption

Visual FoxPro 9

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("Group <img>1</img> text <img>2</img>").CaptionFormat = 1
endwith

105. How can I assign some extra data to a group

Visual FoxPro 9
with thisform.ExplorerBar1 .Groups.Add("Group 1").UserData = "your data" endwith

106. How can I align the group's name

Visual FoxPro 9
with thisform.ExplorerBar1 .Groups.Add("Group 1").Alignment = 0 endwith

107. How can I align the group's name

Visual FoxPro 9
with thisform.ExplorerBar1 .Groups.Add("Group 1").Alignment = 2 endwith

108. How can I align the icon in the group's caption

Visual FoxPro 9

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1")
		.Image = 1
		.ImageAlignment = 2
		.Alignment = 2
	endwith
endwith

109. How do I bold the group's name

Visual FoxPro 9
with thisform.ExplorerBar1 .Groups.Add("Group 1") .Groups.Add("Group 2").Bold = .T. .Groups.Add("Group 3") endwith

110. How do I bold the group's name

Visual FoxPro 9
with thisform.ExplorerBar1 .Groups.Add("<b>Group</b> 1").CaptionFormat = 1 endwith

111. How do I draw italic the group's name

Visual FoxPro 9
with thisform.ExplorerBar1 .Groups.Add("Group 1") .Groups.Add("Group 2").Italic = .T. .Groups.Add("Group 3") endwith

112. How can I draw as italic the group's name

Visual FoxPro 9
with thisform.ExplorerBar1 .Groups.Add("<i>Group</i> 1").CaptionFormat = 1 endwith

113. How can I show the group's name as strikeout

Visual FoxPro 9
with thisform.ExplorerBar1 .Groups.Add("Group 1") .Groups.Add("Group 2").StrikeOut = .T. .Groups.Add("Group 3") endwith

114. How can I show the group's name as strikeout

Visual FoxPro 9
with thisform.ExplorerBar1 .Groups.Add("<s>Group</s> 1").CaptionFormat = 1 endwith

115. How can I underline the group's name

Visual FoxPro 9
with thisform.ExplorerBar1 .Groups.Add("Group 1") .Groups.Add("Group 2").Underline = .T. .Groups.Add("Group 3") endwith

116. How can I underline the group's name

Visual FoxPro 9
with thisform.ExplorerBar1 .Groups.Add("<u>Group</u> 1").CaptionFormat = 1 endwith

117. How do I get the index of the group

Visual FoxPro 9
with thisform.ExplorerBar1 with .Groups.Add("Group 1") .Caption = .Index endwith with .Groups.Add("Group 2") .Caption = .Index endwith with .Groups.Add("Group 3") .Caption = .Index endwith endwith

118. How can I change the group's background color

Visual FoxPro 9
with thisform.ExplorerBar1 .Groups.Add("Group 1") .Groups.Add("Group 2").BackColor = 255 .Groups.Add("Group 3") endwith

119. How can I change the visual appearance of the group, using EBN files

Visual FoxPro 9

with thisform.ExplorerBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.GroupAppearance = 1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").BackColor = 16777216
	.Groups.Add("Group 3")
endwith

120. How can I change the group's background color

Visual FoxPro 9
with thisform.ExplorerBar1 .Groups.Add("Group 1") .Groups.Add("<bgcolor=FF0000>Group</bgcolor> 2").CaptionFormat = 1 .Groups.Add("Group 3") endwith

121. How can I change the group's foreground color

Visual FoxPro 9
with thisform.ExplorerBar1 .Groups.Add("Group 1") .Groups.Add("Group 2").ForeColor = 255 .Groups.Add("Group 3") endwith

122. How can I change the group's foreground color

Visual FoxPro 9
with thisform.ExplorerBar1 .Groups.Add("Group 1") .Groups.Add("<fgcolor=FF0000>Group</fgcolor> 2").CaptionFormat = 1 .Groups.Add("Group 3") endwith

123. How can I change the background color for the items

Visual FoxPro 9
with thisform.ExplorerBar1 .Groups.Add("Group 1") with .Groups.Add("Group 2") .AddItem("Item 1") .AddItem("Item 2") .BackColorList = 255 .Expanded = .T. endwith .Groups.Add("Group 3") endwith

124. How can I change the foreground color for items

Visual FoxPro 9
with thisform.ExplorerBar1 .Groups.Add("Group 1") with .Groups.Add("Group 2") .AddItem("Item 1") .AddItem("Item 2") .ForeColorList = 255 .Expanded = .T. endwith .Groups.Add("Group 3") endwith

125. How do I put a picture on the group's background

Visual FoxPro 9

with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.Expanded = .T.
	endwith
	.Groups.Add("Group 3")
endwith

126. How do I put a picture on the group's background

Visual FoxPro 9

with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 2
		.Expanded = .T.
	endwith
	.Groups.Add("Group 3")
endwith

127. How can I specify the height of the items

Visual FoxPro 9
with thisform.ExplorerBar1 .Groups.Add("Group 1") with .Groups.Add("Group 2") .AddItem("Item 1") .AddItem("Item 2") .ItemHeight = 13 .Expanded = .T. endwith .Groups.Add("Group 3") endwith