101:
How can I use the BackgroundExt property

OleObject oStatusBar,var_Panel,var_Panel1,var_Panel2

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Format = "1,2,3"
var_Panel = oStatusBar.Panel(1)
	var_Panel.Text = "Panel 1"
	var_Panel.BackgroundExt = "bottom[10,pattern=6,back=RGB(255,0,0),text=`<font ;6><img>alert</img><b>Alert!`,align=0x11]"
var_Panel1 = oStatusBar.Panel(2)
	var_Panel1.Text = "Panel 2"
	var_Panel1.BackgroundExt = "bottom[20,back=RGB(128,0,0),text=`<fgcolor FFFFFF><img>alert</img><b>Alert!`,align=0x11]"
var_Panel2 = oStatusBar.Panel(3)
	var_Panel2.Text = "Panel 3"
	var_Panel2.BackgroundExt = "bottom[30,back=RGB(64,0,0),text=`<font ;12><fgcolor FFFFFF><img>alert</img><b>Alert!`,align=0x11]"
oStatusBar.EndUpdate()

100:
How do I access the properties and the methods of an inner ActiveX control to a panel

OleObject oStatusBar,var_Appearance,var_Calendar,var_Panel,var_Panel1

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Appearance = oStatusBar.VisualAppearance
	var_Appearance.Add(4,"c:\exontrol\images\border.ebn")
	var_Appearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2,(24;5/6)"
var_Panel = oStatusBar.Panel(1)
	var_Panel.ControlID = "MSCAL.Calendar"
	var_Calendar = var_Panel.Object
		var_Calendar.MonthLength = 0
		var_Calendar.BackColor = RGB(255,255,255)
var_Panel1 = oStatusBar.Panel(5)
	var_Panel1.Text = "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>"
	var_Panel1.Alignment = 16
	var_Panel1.Percent = 75
	var_Panel1.Transparency = 35
	var_Panel1.Offset = "4 2 -4 -2"
oStatusBar.EndUpdate()

99:
How do I insert an ActiveX control to a panel

OleObject oStatusBar,var_Appearance,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Appearance = oStatusBar.VisualAppearance
	var_Appearance.Add(4,"c:\exontrol\images\border.ebn")
	var_Appearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2,(24;5/6)"
oStatusBar.Panel(1).ControlID = "MSChart20Lib.MSChart"
oStatusBar.Panel(2).ControlID = "MSCAL.Calendar"
var_Panel = oStatusBar.Panel(5)
	var_Panel.Text = "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>"
	var_Panel.Alignment = 16
	var_Panel.Percent = 75
	var_Panel.Transparency = 35
	var_Panel.Offset = "4 2 -4 -2"
oStatusBar.EndUpdate()

98:
How can I show the percent value over the progress bar using a semi-transparent color

OleObject oStatusBar,var_Appearance,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Appearance = oStatusBar.VisualAppearance
	var_Appearance.Add(4,"c:\exontrol\images\border.ebn")
	var_Appearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2,(24;5/6)"
var_Panel = oStatusBar.Panel(5)
	var_Panel.Text = "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>"
	var_Panel.Alignment = 16
	var_Panel.Percent = 75
	var_Panel.Transparency = 35
	var_Panel.Offset = "4 2 -4 -2"
oStatusBar.EndUpdate()

97:
How can I control the padding of the percent/progressbar control

OleObject oStatusBar,var_Appearance,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
var_Appearance = oStatusBar.VisualAppearance
	var_Appearance.Add(4,"c:\exontrol\images\border.ebn")
	var_Appearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2,(24;5/6)"
var_Panel = oStatusBar.Panel(5)
	var_Panel.Text = "15%"
	var_Panel.Percent = 15
	var_Panel.OffsetPercent = "6 6 -6 -6"
oStatusBar.EndUpdate()

96:
Can I change the visual appearance of the percent or a progress-bar inside the panel

OleObject oStatusBar,var_Appearance,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
var_Appearance = oStatusBar.VisualAppearance
	var_Appearance.Add(1,"c:\exontrol\images\normal.ebn")
	var_Appearance.Add(4,"c:\exontrol\images\border.ebn")
	var_Appearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2,(24;5/6)"
var_Panel = oStatusBar.Panel(5)
	var_Panel.BackColor = RGB(255,255,255)
	var_Panel.Text = "15%"
	var_Panel.Percent = 15
	var_Panel.BackColorPercent = 16777216 /*0x1000000*/
oStatusBar.EndUpdate()

95:
Can I change the visual appearance of the percent or a progress-bar inside the panel

OleObject oStatusBar,var_Appearance,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Appearance = oStatusBar.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAEGg8GhiAADACAxRDAMgBQKAAzQFAYbhrBaERhGIYYJhUAIIRZGMIjFDcEwxDSMQJjaCRQh+JYkR6MQCSBJkMw5AaXYrlWJoMjKA4nTbKMjRfKcWRjGKeJ5kOaZIhuJgCUJLM70HRMExqGQaRJpeoZVDUMJSQjVVYUbDVFwHIKkZzoWhJQiKXIuRzXdKzLYVSABA6xbLiWrpWqebQAThbdD3FC1aTBISpaztepKZpeVaGXxcdo3LTlbzzOC3MRva7MOjqJJIYjMGJ3fLuA49QrBKymWJcYwyGgIQiBdKaK7+WgBVp/YqjeL9IgMUBpGKdBynlzGHzeQiQRK8BDIbQSFCEdpADSrKBiFioZjXGwbBaXJ4ujOdY2D2Do3FeOZbmmdx6HAECAg==")
	var_Appearance.Add(4,"c:\exontrol\images\border.ebn")
	var_Appearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2,(24;5/6)"
var_Panel = oStatusBar.Panel(5)
	var_Panel.Text = "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>"
	var_Panel.Alignment = 16
	var_Panel.Percent = 75
	var_Panel.Transparency = 35
	var_Panel.Offset = "4 2 -4 -2"
	var_Panel.BackColorPercent = 16777216 /*0x1000000*/
oStatusBar.EndUpdate()

94:
How can I change the color of the percent or a progress-bar inside the panel

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2,(24;5/6)"
var_Panel = oStatusBar.Panel(5)
	var_Panel.Text = "15%"
	var_Panel.Percent = 15
	var_Panel.BackColorPercent = RGB(255,0,0)
oStatusBar.EndUpdate()

93:
How can I display a percent or a progress-bar inside the panel

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2,(24;5/6)"
var_Panel = oStatusBar.Panel(5)
	var_Panel.Text = "15%"
	var_Panel.Percent = 15
oStatusBar.EndUpdate()

92:
Is there any property to get the width/height of the panel

OleObject oStatusBar,var_Panel,var_Panel1

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2,(5/6)"
var_Panel = oStatusBar.Panel(5)
	var_Panel.Text = String(var_Panel.Width)
var_Panel1 = oStatusBar.Panel(6)
	var_Panel1.Text = String(var_Panel1.Height)
oStatusBar.EndUpdate()

91:
How can I disable a panel

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2,(5/6)"
var_Panel = oStatusBar.Panel(5)
	var_Panel.Text = "Disabled"
	var_Panel.Enabled = false
oStatusBar.EndUpdate()

90:
How can I assign an extra data to my panel

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2,(5/6/7/8)"
var_Panel = oStatusBar.Panel(5)
	var_Panel.Text = "UserData"
	var_Panel.UserData = "this is just some extra data associated to the panel"
	var_Panel.ToolTipText = String(var_Panel.UserData)
oStatusBar.EndUpdate()

89:
Is there any option to draw myself the panel

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2,(5/6/7/8)"
var_Panel = oStatusBar.Panel(5)
	var_Panel.Text = "OwnerDraw"
	var_Panel.OwnerDraw = true
oStatusBar.Debug = true
oStatusBar.EndUpdate()

88:
How can I assign a tooltip to a panel

OleObject oStatusBar,var_Panel,var_Panel1,var_Panel2

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.ToolTipDelay = 1
oStatusBar.ToolTipWidth = 364
oStatusBar.Format = "1/2/3"
var_Panel = oStatusBar.Panel(1)
	var_Panel.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
	var_Panel.ToolTipText = var_Panel.Text
	var_Panel.ToolTipTitle = "Title"
	var_Panel.Alignment = 16
var_Panel1 = oStatusBar.Panel(2)
	var_Panel1.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
	var_Panel1.ToolTipText = var_Panel1.Text
	var_Panel1.ToolTipTitle = "Title"
	var_Panel1.Alignment = 16
var_Panel2 = oStatusBar.Panel(3)
	var_Panel2.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
	var_Panel2.ToolTipText = var_Panel2.Text
	var_Panel2.ToolTipTitle = "Title"
	var_Panel2.Alignment = 16
oStatusBar.EndUpdate()

87:
How can I assign an icon/image to a panel

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Panel(1).Image = 1
oStatusBar.Panel(6).Image = 2
oStatusBar.Panel(8).Image = 3
oStatusBar.EndUpdate()

86:
How can I get the index of the panel

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Appearance = 0
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Debug = true
oStatusBar.EndUpdate()

85:
How can I get the index of the panel

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Appearance = 0
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Panel(1).Text = String(oStatusBar.Panel(1).Index)
oStatusBar.EndUpdate()

84:
How can I change the panel's visual appearance using EBN files

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Appearance = 0
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Debug = true
oStatusBar.EndUpdate()

83:
How can I change the panel's visual appearance using EBN files

OleObject oStatusBar,var_Appearance,var_Panel,var_Panel1

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
var_Appearance = oStatusBar.VisualAppearance
	var_Appearance.Add(3,"c:\exontrol\images\normal.ebn")
	var_Appearance.Add(4,"c:\exontrol\images\pushed.ebn")
	var_Appearance.Add(1,"CP:3 2 2 -2 -2")
	var_Appearance.Add(2,"CP:4 2 2 -2 -2")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2"
var_Panel = oStatusBar.Panel(1)
	var_Panel.Text = "Panel 1"
	var_Panel.BackColor = 16777216 /*0x1000000*/
var_Panel1 = oStatusBar.Panel(2)
	var_Panel1.Text = "Panel 2"
	var_Panel1.BackColor = 33554432 /*0x2000000*/
oStatusBar.EndUpdate()

82:
How can I change the panel's visual appearance using EBN files

OleObject oStatusBar,var_Panel,var_Panel1

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oStatusBar.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "" + CHAR(34) + "" + CHAR(34) + ":4,((4;" + CHAR(34) + "" + CHAR(34) + "/1/4;" + CHAR(34) + "" + CHAR(34) + ")," + CHAR(34) + "" + CHAR(34) + ":4,(4;" + CHAR(34) + "" + CHAR(34) + "/2/4;" + CHAR(34) + "" + CHAR(34) + "))," + CHAR(34) + "" + CHAR(34) + ":4"
var_Panel = oStatusBar.Panel(1)
	var_Panel.Text = "Panel 1"
	var_Panel.BackColor = 16777216 /*0x1000000*/
var_Panel1 = oStatusBar.Panel(2)
	var_Panel1.Text = "Panel 2"
	var_Panel1.BackColor = 33554432 /*0x2000000*/
oStatusBar.EndUpdate()

81:
How can I change the panel's background color

OleObject oStatusBar,var_Panel,var_Panel1

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Format = "" + CHAR(34) + "" + CHAR(34) + ":4,((4;" + CHAR(34) + "" + CHAR(34) + "/1/4;" + CHAR(34) + "" + CHAR(34) + ")," + CHAR(34) + "" + CHAR(34) + ":4,(4;" + CHAR(34) + "" + CHAR(34) + "/2/4;" + CHAR(34) + "" + CHAR(34) + "))," + CHAR(34) + "" + CHAR(34) + ":4"
var_Panel = oStatusBar.Panel(1)
	var_Panel.Text = "Panel 1"
	var_Panel.BackColor = RGB(255,255,0)
var_Panel1 = oStatusBar.Panel(2)
	var_Panel1.Text = "Panel 2"
	var_Panel1.BackColor = RGB(255,0,255)
oStatusBar.EndUpdate()

80:
How can I change the caption's foreground color

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1:48/2"
var_Panel = oStatusBar.Panel(1)
	var_Panel.Text = "Panel 1"
	var_Panel.ForeColor = RGB(255,255,0)
var_Panel = oStatusBar.Panel(2)
	var_Panel.Text = "Panel 2"
	var_Panel.ForeColor = RGB(255,0,255)
oStatusBar.EndUpdate()

79:
How can I show in strikeout the caption in the panel

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2"
var_Panel = oStatusBar.Panel(1)
	var_Panel.Text = "Panel 1"
	var_Panel.StrikeOut = true
oStatusBar.Panel(2).Text = "<s>Panel</s> 2"
oStatusBar.EndUpdate()

78:
How can I underline the caption in the panel

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2"
var_Panel = oStatusBar.Panel(1)
	var_Panel.Text = "Panel 1"
	var_Panel.Underline = true
oStatusBar.Panel(2).Text = "<u>Panel</u> 2"
oStatusBar.EndUpdate()

77:
How can I show in italic a specified panel

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2"
var_Panel = oStatusBar.Panel(1)
	var_Panel.Text = "Panel 1"
	var_Panel.Italic = true
oStatusBar.Panel(2).Text = "<i>Panel</i> 2"
oStatusBar.EndUpdate()

76:
How can I show in bold a specified panel

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2"
var_Panel = oStatusBar.Panel(1)
	var_Panel.Text = "Panel 1"
	var_Panel.Bold = true
oStatusBar.Panel(2).Text = "<b>Panel</b> 2"
oStatusBar.EndUpdate()

75:
How do I control the padding on the left, top or other sides

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Debug = true
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2/(3,4)"
var_Panel = oStatusBar.Panel(3)
	var_Panel.Text = "Arrange the panels as you want using CRD strings"
	var_Panel.Alignment = 0
	var_Panel.ToolTipText = var_Panel.Text
	var_Panel.Offset = "10 10 -10 -10"
oStatusBar.EndUpdate()

74:
How can I display the panel using a single line

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Debug = true
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2/(3,4)"
var_Panel = oStatusBar.Panel(3)
	var_Panel.Text = "Arrange the panels as you want using CRD strings"
	var_Panel.ToolTipText = var_Panel.Text
	var_Panel.WordWrap = false
oStatusBar.EndUpdate()

73:
How can I align the text inside the panel

OleObject oStatusBar,var_Panel,var_Panel1,var_Panel2,var_Panel3,var_Panel4,var_Panel5,var_Panel6,var_Panel7,var_Panel8

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "(0/16/32),(1/17/33),(2/18/34)"
var_Panel = oStatusBar.Panel(0)
	var_Panel.Text = "exAlignTopLeft"
	var_Panel.Alignment = 0
var_Panel1 = oStatusBar.Panel(1)
	var_Panel1.Text = "exAlignTopCenter"
	var_Panel1.Alignment = 1
var_Panel2 = oStatusBar.Panel(2)
	var_Panel2.Text = "exAlignTopRight"
	var_Panel2.Alignment = 2
var_Panel3 = oStatusBar.Panel(16)
	var_Panel3.Text = "exAlignMiddleLeft"
	var_Panel3.Alignment = 16
var_Panel4 = oStatusBar.Panel(17)
	var_Panel4.Text = "exAlignMiddleCenter"
	var_Panel4.Alignment = 17
var_Panel5 = oStatusBar.Panel(18)
	var_Panel5.Text = "exAlignMiddleRight"
	var_Panel5.Alignment = 18
var_Panel6 = oStatusBar.Panel(32)
	var_Panel6.Text = "exAlignBottomLeft"
	var_Panel6.Alignment = 32
var_Panel7 = oStatusBar.Panel(33)
	var_Panel7.Text = "exAlignBottomCenter"
	var_Panel7.Alignment = 33
var_Panel8 = oStatusBar.Panel(34)
	var_Panel8.Text = "exAlignBottomRight"
	var_Panel8.Alignment = 34
oStatusBar.EndUpdate()

72:
How can I display the <b> in the panel's caption

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1"
oStatusBar.Panel(1).Text = "<b>Bold</b>"
oStatusBar.EndUpdate()

71:
How can I insert anchors or hyperlinks

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2"
oStatusBar.Panel(1).Text = "Link <a1>1</a>"
oStatusBar.Panel(2).Text = "<a2>Link 2</a>"
oStatusBar.EndUpdate()

70:
How can I change the font for a panel

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2"
oStatusBar.Panel(1).Text = "<font Tahoma>Panel 1</font>"
oStatusBar.Panel(2).Text = "<font System>Panel 2</font>"
oStatusBar.EndUpdate()

69:
Is there any option to display the text using different fonts

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2"
oStatusBar.Panel(1).Text = "Panel <font Tahoma;20>1</font>"
oStatusBar.Panel(2).Text = "Panel <font Tahoma;16>2</font>"
oStatusBar.EndUpdate()

68:
Is there any option to insert custom size pictures in the text

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
oStatusBar.HTMLPicture("pic2","c:\exontrol\images\auction.gif")
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2"
oStatusBar.Panel(1).Text = "Panel 1<img>pic1</img>"
oStatusBar.Panel(2).Text = "Panel <img>pic2</img> 2"
oStatusBar.EndUpdate()

67:
Is there any option to insert icons in the text

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2"
oStatusBar.Panel(1).Text = "Panel 1<img>1</img>"
oStatusBar.Panel(2).Text = "<img>2</img>Panel 2"
oStatusBar.EndUpdate()

66:
How do I show the panel's caption using multiple lines

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2"
oStatusBar.Panel(1).Text = "Panel 1<br>Line 1<br>Line2"
oStatusBar.Panel(2).Text = "<bgcolor=FFFF00>Panel</bgcolor> 2"
oStatusBar.EndUpdate()

65:
How do I show a portion of the text using a different background color

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2"
oStatusBar.Panel(1).Text = "<bgcolor=FF0000>Panel</bgcolor> 1"
oStatusBar.Panel(2).Text = "<bgcolor=FFFF00>Panel</bgcolor> 2"
oStatusBar.EndUpdate()

64:
How do I show a portion of the text in a different color

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2"
oStatusBar.Panel(1).Text = "<fgcolor=FF0000>Panel</fgcolor> 1"
oStatusBar.Panel(2).Text = "<fgcolor=FFFF00>Panel</fgcolor> 2"
oStatusBar.EndUpdate()

63:
How do I show a portion of the text as italic in the panel

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2"
oStatusBar.Panel(1).Text = "<i>Panel</i> 1"
oStatusBar.Panel(2).Text = "<i>Panel</i> 2"
oStatusBar.EndUpdate()

62:
How do I show a portion of the text as strikeout in the panel

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2"
oStatusBar.Panel(1).Text = "<s>Panel</s> 1"
oStatusBar.Panel(2).Text = "<s>Panel</s> 2"
oStatusBar.EndUpdate()

61:
How do I underline a portion of the text in the panel

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2"
oStatusBar.Panel(1).Text = "<u>Panel</u> 1"
oStatusBar.Panel(2).Text = "<u>Panel</u> 2"
oStatusBar.EndUpdate()

60:
How do I bold a portion of the text in the panel

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2"
oStatusBar.Panel(1).Text = "<b>Panel</b> 1"
oStatusBar.Panel(2).Text = "<b>Panel</b> 2"
oStatusBar.EndUpdate()

59:
How do I assign a caption or a text to a panel

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Format = "1/2"
oStatusBar.Panel(1).Text = "Panel 1"
oStatusBar.Panel(2).Text = "Panel 2"
oStatusBar.EndUpdate()

58:
How do I access properties and methods of the panel

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1010/2020"
var_Panel = oStatusBar.Panel(1010)
	var_Panel.Text = "Panel 1"
	var_Panel.Bold = true
oStatusBar.Panel(2020).Text = "Panel 2"
oStatusBar.EndUpdate()

57:
How do I clear the panels

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1/2/48;(3,4:48)"
oStatusBar.Panel(1).Text = "Panel 1"
oStatusBar.Panel(2).Text = "Panel 2"
oStatusBar.Panel(3).Text = "Panel 3"
oStatusBar.Panel(4).Text = "Panel 4"
oStatusBar.ClearPanels()
oStatusBar.EndUpdate()

56:
How can I add or arrange the panels in the status bar control

OleObject oStatusBar,var_Appearance,var_Panel,var_Panel1

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Format = "" + CHAR(34) + "<a1>link</a>" + CHAR(34) + "[a=17]:64,11:64,((24;21/" + CHAR(34) + "Arrange the panels as you want using CRD strings" + CHAR(34) + "[a=17][ww])/24;3),(33/44):48"
oStatusBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Appearance = oStatusBar.VisualAppearance
	var_Appearance.Add(1,"c:\exontrol\images\border.ebn")
	var_Appearance.Add(2,"c:\exontrol\images\border.ebn")
	var_Appearance.Add(3,"CP:2 1 1 -1 -1")
oStatusBar.Appearance = 0
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.BackColorPanels = 50331648 /*0x3000000*/
oStatusBar.Panel(11).Text = "Panel <b>1</b>"
var_Panel = oStatusBar.Panel(3)
	var_Panel.Transparency = 50
	var_Panel.Text = "<img>1</img>75%"
	var_Panel.Percent = 75
	var_Panel.Alignment = 16
	var_Panel.Offset = "4 4 -4 -4"
	var_Panel.OffsetPercent = var_Panel.Offset
	var_Panel.BackColorPercent = 16777216 /*0x1000000*/
oStatusBar.Panel(21).Image = 1
var_Panel1 = oStatusBar.Panel(33)
	var_Panel1.Text = "Panel 3"
	var_Panel1.Bold = true
	var_Panel1.Enabled = false
oStatusBar.Panel(44).Text = "Panel 4"
oStatusBar.EndUpdate()

55:
How can I add three panels aligned from top to bottom, and the last divided in two panels

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1/2/48;(3,4:48)"
oStatusBar.Panel(1).Text = "Panel 1"
oStatusBar.Panel(2).Text = "Panel 2"
oStatusBar.Panel(3).Text = "Panel 3"
oStatusBar.Panel(4).Text = "Panel 4"
oStatusBar.EndUpdate()

54:
How can I add three panels aligned from top to bottom

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1/2/3"
oStatusBar.Panel(1).Text = "Panel 1"
oStatusBar.Panel(2).Text = "Panel 2"
oStatusBar.Panel(3).Text = "Panel 3"
oStatusBar.EndUpdate()

53:
How can I add two panels to the status bar control, first aligned to the left, the second aligned to the right, and in the middle some text

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.BackColor = -2147483633 /*0x8000000f*/
oStatusBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1:64," + CHAR(34) + "<img>1</img> just text and so on ..." + CHAR(34) + "[a=17],2:96"
oStatusBar.Panel(1).Text = "Panel 1"
oStatusBar.Panel(2).Text = "Panel 2"
oStatusBar.EndUpdate()

52:
How can I add two panels to the status bar control, first aligned to the left, the second aligned to the right

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1:64," + CHAR(34) + "" + CHAR(34) + ",2:96"
oStatusBar.Panel(1).Text = "Panel 1"
oStatusBar.Panel(2).Text = "Panel 2"
oStatusBar.EndUpdate()

51:
How can I add two panels to the status bar control, so the first has a specified width

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1:64,2"
oStatusBar.Panel(1).Text = "Panel 1"
oStatusBar.Panel(2).Text = "Panel 2"
oStatusBar.EndUpdate()

50:
How can I add two panels to the status bar control, so the second has a specified width

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2:64"
oStatusBar.Panel(1).Text = "Panel 1"
oStatusBar.Panel(2).Text = "Panel 2"
oStatusBar.EndUpdate()

49:
How can I add two panels to the status bar control

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2"
oStatusBar.Panel(1).Text = "Panel 1"
oStatusBar.Panel(2).Text = "Panel 2"
oStatusBar.EndUpdate()

48:
How do I add one panel to the status bar control

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 2 2 -2 -2")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1"
oStatusBar.Panel(1).Text = "Panel 1"
oStatusBar.EndUpdate()

47:
How do I arrange the panels in the status bar

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Debug = true
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\hot.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 2 2 -2 -2")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "" + CHAR(34) + "<a1>link</a>" + CHAR(34) + "[a=17]:64,11:64,((24;21/" + CHAR(34) + "Arrange the panels as you want using CRD strings" + CHAR(34) + "[a=17][ww])/24;3),(33/44):48"
oStatusBar.EndUpdate()

46:
How do I arrange the panels in the status bar

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Debug = true
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\pushed.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 2 2 -2 -2")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2:32,(3/4/5)"
oStatusBar.EndUpdate()

45:
How do I arrange the panels in the status bar

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Debug = true
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\normal.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 2 2 -2 -2")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,(3/4/5)"
oStatusBar.EndUpdate()

44:
How do I get the panel from the cursor
OleObject oStatusBar,p

oStatusBar = ole_1.Object
p = oStatusBar.PanelFromPoint(-1,-1)

43:
How do I draw a border for all panels

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Debug = true
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\normal.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 2 2 -2 -2")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,(3/4/5)"
oStatusBar.EndUpdate()

42:
How do I draw a border for all panels

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 2 2 -2 -2")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Debug = true
oStatusBar.Format = "(0/1:32),2,(3/4/5)"
oStatusBar.EndUpdate()

41:
Is there any option to display the identifiers of the panels

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Debug = true
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3"
oStatusBar.Panel(1).Text = "Panel 1"
oStatusBar.Panel(2).Text = "Panel 2"
oStatusBar.Panel(3).Text = "Panel 3"
oStatusBar.EndUpdate()

40:
Can I get the anchor from the point so I can display a tooltip
OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3"
oStatusBar.Panel(1).Text = "<a1>link 1</a>"
oStatusBar.Panel(2).Text = "<a2>link 2</a>"
oStatusBar.Panel(3).Text = "<a3>link 3</a>"
oStatusBar.ShowToolTip(oStatusBar.AnchorFromPoint(-1,-1))
oStatusBar.EndUpdate()

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

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.FormatAnchor(false,"<b><u><fgcolor=880000> </fgcolor></u></b>")
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3"
oStatusBar.Panel(1).Text = "<a1>link 1</a>"
oStatusBar.Panel(2).Text = "<a2>link 2</a>"
oStatusBar.Panel(3).Text = "<a3>link 3</a>"
oStatusBar.EndUpdate()

38:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.FormatAnchor(true,"<b><u><fgcolor=FF0000> </fgcolor></u></b>")
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3"
oStatusBar.Panel(1).Text = "<a1>link 1</a>"
oStatusBar.Panel(2).Text = "<a2>link 2</a>"
oStatusBar.Panel(3).Text = "<a3>link 3</a>"
oStatusBar.EndUpdate()

37:
Can I displays a custom size picture to panels

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
oStatusBar.Format = "1,2,3,4"
oStatusBar.Panel(1).Text = "<img>pic1</img>"
oStatusBar.EndUpdate()

36:
How can I show the tooltip programatically
OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.ShowToolTip("This is a bit of text that should appear when ShowToolTip method is called.")

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

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.ToolTipDelay = 1
oStatusBar.ToolTipWidth = 426
oStatusBar.Format = "1"
var_Panel = oStatusBar.Panel(1)
	var_Panel.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
	var_Panel.ToolTipText = var_Panel.Text
	var_Panel.ToolTipTitle = "Title"
	var_Panel.Alignment = 16
oStatusBar.EndUpdate()

34:
How do I call your x-script language

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.Debug = true
oStatusBar.Format = "1"
oStatusBar.ExecuteTemplate("Panel(1)").Text = "this is called through ExecuteTemplate property"

33:
How do I call your x-script language

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.Template = "BackColor = RGB(255,0,0)"

32:
How can I disable the control

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Enabled = false
oStatusBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Panel(1).Image = 1
oStatusBar.Panel(2).Text = "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> icons"
var_Panel = oStatusBar.Panel(3)
	var_Panel.Text = "<img>2</img>"
	var_Panel.Alignment = 18
oStatusBar.EndUpdate()

31:
How do I let the tooltip being displayed longer

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.ToolTipDelay = 1
oStatusBar.ToolTipPopDelay = 10000
oStatusBar.Format = "1"
var_Panel = oStatusBar.Panel(1)
	var_Panel.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
	var_Panel.ToolTipText = var_Panel.Text
	var_Panel.ToolTipTitle = "Title"
	var_Panel.Alignment = 16
oStatusBar.EndUpdate()

30:
Can I change the background color for the tooltip

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.ToolTipDelay = 1
oStatusBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oStatusBar.Background(64,16777216 /*0x1000000*/)
oStatusBar.Background(65,RGB(246,245,240))
oStatusBar.Format = "1"
var_Panel = oStatusBar.Panel(1)
	var_Panel.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
	var_Panel.ToolTipText = var_Panel.Text
	var_Panel.ToolTipTitle = "Title"
	var_Panel.Alignment = 16
oStatusBar.EndUpdate()

29:
Can I change the background color for the tooltip

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.ToolTipDelay = 1
oStatusBar.Background(65,RGB(255,0,0))
oStatusBar.Format = "1"
var_Panel = oStatusBar.Panel(1)
	var_Panel.Text = "Drag the cursor hover so the tooltip shows up"
	var_Panel.ToolTipText = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a panel"
oStatusBar.EndUpdate()

28:
Does the tooltip support HTML format

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.ToolTipDelay = 1
oStatusBar.Format = "1"
var_Panel = oStatusBar.Panel(1)
	var_Panel.Text = "Drag the cursor hover so the tooltip shows up"
	var_Panel.ToolTipText = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>panel</fgcolor>"
oStatusBar.EndUpdate()

27:
Can I change the forecolor for the tooltip

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.ToolTipDelay = 1
oStatusBar.Background(66,RGB(255,0,0))
oStatusBar.Format = "1"
var_Panel = oStatusBar.Panel(1)
	var_Panel.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
	var_Panel.ToolTipText = var_Panel.Text
	var_Panel.ToolTipTitle = "Title"
	var_Panel.Alignment = 16
oStatusBar.EndUpdate()

26:
Can I change the foreground color for the tooltip

OleObject oStatusBar,var_Panel,var_StdFont

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.ToolTipDelay = 1
var_StdFont = oStatusBar.ToolTipFont
	var_StdFont.Name = "Tahoma"
	var_StdFont.Size = 14
oStatusBar.ToolTipWidth = 364
oStatusBar.Format = "1"
var_Panel = oStatusBar.Panel(1)
	var_Panel.Text = "this is a tooltip assigned to a panel"
	var_Panel.ToolTipText = "<fgcolor=FF0000>this is a tooltip assigned to a panel</fgcolor>"
	var_Panel.ToolTipTitle = "Title"
	var_Panel.Alignment = 16
oStatusBar.EndUpdate()

25:
Can I change the font for the tooltip

OleObject oStatusBar,var_Panel,var_StdFont

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.ToolTipDelay = 1
var_StdFont = oStatusBar.ToolTipFont
	var_StdFont.Name = "Tahoma"
	var_StdFont.Size = 14
oStatusBar.ToolTipWidth = 364
oStatusBar.Format = "1"
var_Panel = oStatusBar.Panel(1)
	var_Panel.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
	var_Panel.ToolTipText = var_Panel.Text
	var_Panel.ToolTipTitle = "Title"
	var_Panel.Alignment = 16
oStatusBar.EndUpdate()

24:
How do I disable showing the tooltip for all control
OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.ToolTipDelay = 0
oStatusBar.Format = "1"
var_Panel = oStatusBar.Panel(1)
	var_Panel.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
	var_Panel.ToolTipText = var_Panel.Text
	var_Panel.ToolTipTitle = "Title"
	var_Panel.Alignment = 16
oStatusBar.EndUpdate()

23:
How do I show the tooltip quicker

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.ToolTipDelay = 1
oStatusBar.ToolTipWidth = 364
oStatusBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oStatusBar.Background(64,16777216 /*0x1000000*/)
oStatusBar.Format = "1"
var_Panel = oStatusBar.Panel(1)
	var_Panel.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
	var_Panel.ToolTipText = var_Panel.Text
	var_Panel.ToolTipTitle = "Title"
	var_Panel.Alignment = 16
oStatusBar.EndUpdate()

22:
Can I change the default border of the tooltip, using your EBN files

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.ToolTipDelay = 1
oStatusBar.ToolTipWidth = 364
oStatusBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oStatusBar.Background(64,16777216 /*0x1000000*/)
oStatusBar.Format = "1"
var_Panel = oStatusBar.Panel(1)
	var_Panel.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
	var_Panel.ToolTipText = var_Panel.Text
	var_Panel.ToolTipTitle = "Title"
	var_Panel.Alignment = 16
oStatusBar.EndUpdate()

21:
How do I retrieve the handle of the window
OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.Format = String(oStatusBar.hWnd)
oStatusBar.ClearPanels()

20:
How can I prevent the control from painting when multiple changes occurs
OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Panel(1).Image = 1
oStatusBar.Panel(2).Text = "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> icons"
var_Panel = oStatusBar.Panel(3)
	var_Panel.Text = "<img>2</img>"
	var_Panel.Alignment = 18
oStatusBar.EndUpdate()

19:
How can I insert an icon aligned to the right

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
var_Panel = oStatusBar.Panel(2)
	var_Panel.Text = "<img>2</img>"
	var_Panel.Alignment = 18
oStatusBar.EndUpdate()

18:
How can I insert an icon to a panel

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Panel(2).Text = "<img>2</img>"
oStatusBar.EndUpdate()

17:
How can I insert icons to status bar control

OleObject oStatusBar,var_Panel

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Panel(1).Image = 1
oStatusBar.Panel(2).Text = "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> icons"
var_Panel = oStatusBar.Panel(3)
	var_Panel.Text = "<img>2</img>"
	var_Panel.Alignment = 18
oStatusBar.EndUpdate()

16:
How can I insert an icon to a panel

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Panel(1).Image = 1
oStatusBar.EndUpdate()

15:
Is there any option to increase the empty space on borders of the control

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.BorderWidth = 20
oStatusBar.BorderHeight = 20
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Debug = true
oStatusBar.EndUpdate()

14:
How do I get the version of the control
OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Format = oStatusBar.Version
oStatusBar.ClearPanels()
oStatusBar.EndUpdate()

13:
How do I put a picture on the center of the control

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Picture = oStatusBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oStatusBar.PictureDisplay = 17
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Debug = true
oStatusBar.EndUpdate()

12:
How do I resize/stretch a picture on the control's background

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Picture = oStatusBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oStatusBar.PictureDisplay = 49
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Debug = true
oStatusBar.EndUpdate()

11:
How do I put a picture on the control's center right bottom side

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Picture = oStatusBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oStatusBar.PictureDisplay = 34
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Debug = true
oStatusBar.EndUpdate()

10:
How do I put a picture on the control's center left bottom side

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Picture = oStatusBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oStatusBar.PictureDisplay = 32
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Debug = true
oStatusBar.EndUpdate()

9:
How do I put a picture on the control's center top side

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Picture = oStatusBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oStatusBar.PictureDisplay = 1
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Debug = true
oStatusBar.EndUpdate()

8:
How do I put a picture on the control's right top corner

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Picture = oStatusBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oStatusBar.PictureDisplay = 2
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Debug = true
oStatusBar.EndUpdate()

7:
How do I put a picture on the control's left top corner

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Picture = oStatusBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oStatusBar.PictureDisplay = 0
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Debug = true
oStatusBar.EndUpdate()

6:
How do I put a picture on the control's background

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Picture = oStatusBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Debug = true
oStatusBar.EndUpdate()

5:
How do I change the control's foreground color

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.ForeColor = RGB(120,120,120)
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Debug = true
oStatusBar.EndUpdate()

4:
How do I change the control's background color

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.BackColor = RGB(200,200,200)
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Debug = true
oStatusBar.EndUpdate()

3:
How do I change the control's border, using your EBN files

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oStatusBar.Appearance = 16777216 /*0x1000000 | */
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Debug = true
oStatusBar.EndUpdate()

2:
How do I remove the control's border

OleObject oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.Appearance = 0
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Debug = true
oStatusBar.EndUpdate()

1:
How can I change the control's font

OleObject f,oStatusBar

oStatusBar = ole_1.Object
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 83886080 /*0x5000000*/
f = CREATE OLEObject
f.ConnectToNewObject("StdFont")
	f.Name = "Verdana"
	f.Size = 12
oStatusBar.Font = f
oStatusBar.Format = "" + CHAR(34) + "static text" + CHAR(34) + "[fg=255][a=17],11,22,(33/44)"
oStatusBar.EndUpdate()