101:
How can I use the BackgroundExt property

With Exstatusbar1
	.BeginUpdate()
	.Format = "1,2,3"
	With .get_Panel(1)
		.Text = "Panel 1"
		.BackgroundExt = "bottom[10,pattern=6,back=RGB(255,0,0),text=`<font ;6><img>alert</img><b>Alert!`,align=0x11]"
	End With
	With .get_Panel(2)
		.Text = "Panel 2"
		.BackgroundExt = "bottom[20,back=RGB(128,0,0),text=`<fgcolor FFFFFF><img>alert</img><b>Alert!`,align=0x11]"
	End With
	With .get_Panel(3)
		.Text = "Panel 3"
		.BackgroundExt = "bottom[30,back=RGB(64,0,0),text=`<font ;12><fgcolor FFFFFF><img>alert</img><b>Alert!`,align=0x11]"
	End With
	.EndUpdate()
End With
100:
How do I access the properties and the methods of an inner ActiveX control to a panel

With Exstatusbar1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .VisualAppearance
		.Add(4,"c:\exontrol\images\border.ebn")
		.Add(5,"CP:4 1 1 -1 -1")
	End With
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2,(24;5/6)"
	With .get_Panel(1)
		.ControlID = "MSCAL.Calendar"
		With .Object
			.MonthLength = 0
			.BackColor = Color.FromArgb(255,255,255)
		End With
	End With
	With .get_Panel(5)
		.Text = "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft
		.Percent = 75
		.Transparency = 35
		.Offset = "4 2 -4 -2"
	End With
	.EndUpdate()
End With
99:
How do I insert an ActiveX control to a panel

With Exstatusbar1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .VisualAppearance
		.Add(4,"c:\exontrol\images\border.ebn")
		.Add(5,"CP:4 1 1 -1 -1")
	End With
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2,(24;5/6)"
	.get_Panel(1).ControlID = "MSChart20Lib.MSChart"
	.get_Panel(2).ControlID = "MSCAL.Calendar"
	With .get_Panel(5)
		.Text = "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft
		.Percent = 75
		.Transparency = 35
		.Offset = "4 2 -4 -2"
	End With
	.EndUpdate()
End With
98:
How can I show the percent value over the progress bar using a semi-transparent color

With Exstatusbar1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .VisualAppearance
		.Add(4,"c:\exontrol\images\border.ebn")
		.Add(5,"CP:4 1 1 -1 -1")
	End With
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2,(24;5/6)"
	With .get_Panel(5)
		.Text = "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft
		.Percent = 75
		.Transparency = 35
		.Offset = "4 2 -4 -2"
	End With
	.EndUpdate()
End With
97:
How can I control the padding of the percent/progressbar control

With Exstatusbar1
	.BeginUpdate()
	With .VisualAppearance
		.Add(4,"c:\exontrol\images\border.ebn")
		.Add(5,"CP:4 1 1 -1 -1")
	End With
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2,(24;5/6)"
	With .get_Panel(5)
		.Text = "15%"
		.Percent = 15
		.OffsetPercent = "6 6 -6 -6"
	End With
	.EndUpdate()
End With
96:
Can I change the visual appearance of the percent or a progress-bar inside the panel

With Exstatusbar1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(4,"c:\exontrol\images\border.ebn")
		.Add(5,"CP:4 1 1 -1 -1")
	End With
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2,(24;5/6)"
	With .get_Panel(5)
		.BackColor = Color.FromArgb(255,255,255)
		.Text = "15%"
		.Percent = 15
		.BackColorPercent32 = &H1000000
	End With
	.EndUpdate()
End With
95:
Can I change the visual appearance of the percent or a progress-bar inside the panel

With Exstatusbar1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAEGg8GhiAADACAxRDAMgBQKAAzQFAYbhrBaERhGIYYJhUAIIRZGMIjFDcEwxDSMQJjaCRQh+JYkR6MQCSBJkMw5AaXYrlWJoMjKA4nTbKMjRfKcW" & _
"RjGKeJ5kOaZIhuJgCUJLM70HRMExqGQaRJpeoZVDUMJSQjVVYUbDVFwHIKkZzoWhJQiKXIuRzXdKzLYVSABA6xbLiWrpWqebQAThbdD3FC1aTBISpaztepKZpeVaGXxc" & _
"do3LTlbzzOC3MRva7MOjqJJIYjMGJ3fLuA49QrBKymWJcYwyGgIQiBdKaK7+WgBVp/YqjeL9IgMUBpGKdBynlzGHzeQiQRK8BDIbQSFCEdpADSrKBiFioZjXGwbBaXJ4" & _
"ujOdY2D2Do3FeOZbmmdx6HAECAg==")
		.Add(4,"c:\exontrol\images\border.ebn")
		.Add(5,"CP:4 1 1 -1 -1")
	End With
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2,(24;5/6)"
	With .get_Panel(5)
		.Text = "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft
		.Percent = 75
		.Transparency = 35
		.Offset = "4 2 -4 -2"
		.BackColorPercent32 = &H1000000
	End With
	.EndUpdate()
End With
94:
How can I change the color of the percent or a progress-bar inside the panel

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2,(24;5/6)"
	With .get_Panel(5)
		.Text = "15%"
		.Percent = 15
		.BackColorPercent = Color.FromArgb(255,0,0)
	End With
	.EndUpdate()
End With
93:
How can I display a percent or a progress-bar inside the panel

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2,(24;5/6)"
	With .get_Panel(5)
		.Text = "15%"
		.Percent = 15
	End With
	.EndUpdate()
End With
92:
Is there any property to get the width/height of the panel

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2,(5/6)"
	With .get_Panel(5)
		.Text = .Width
	End With
	With .get_Panel(6)
		.Text = .Height
	End With
	.EndUpdate()
End With
91:
How can I disable a panel

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2,(5/6)"
	With .get_Panel(5)
		.Text = "Disabled"
		.Enabled = False
	End With
	.EndUpdate()
End With
90:
How can I assign an extra data to my panel

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2,(5/6/7/8)"
	With .get_Panel(5)
		.Text = "UserData"
		.UserData = "this is just some extra data associated to the panel"
		.ToolTipText = .UserData
	End With
	.EndUpdate()
End With
89:
Is there any option to draw myself the panel

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2,(5/6/7/8)"
	With .get_Panel(5)
		.Text = "OwnerDraw"
		.OwnerDraw = True
	End With
	.Debug = True
	.EndUpdate()
End With
88:
How can I assign a tooltip to a panel

With Exstatusbar1
	.BeginUpdate()
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Format = "1/2/3"
	With .get_Panel(1)
		.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
		.ToolTipText = .Text
		.ToolTipTitle = "Title"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft
	End With
	With .get_Panel(2)
		.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
		.ToolTipText = .Text
		.ToolTipTitle = "Title"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft
	End With
	With .get_Panel(3)
		.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
		.ToolTipText = .Text
		.ToolTipTitle = "Title"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft
	End With
	.EndUpdate()
End With
87:
How can I assign an icon/image to a panel

With Exstatusbar1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1,2,3,4,(5/6/7/8)"
	.get_Panel(1).Image = 1
	.get_Panel(6).Image = 2
	.get_Panel(8).Image = 3
	.EndUpdate()
End With
86:
How can I get the index of the panel

With Exstatusbar1
	.BeginUpdate()
	.Appearance = exontrol.EXSTATUSBARLib.AppearanceEnum.None2
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1,2,3,4,(5/6/7/8)"
	.Debug = True
	.EndUpdate()
End With
85:
How can I get the index of the panel

With Exstatusbar1
	.BeginUpdate()
	.Appearance = exontrol.EXSTATUSBARLib.AppearanceEnum.None2
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1,2,3,4,(5/6/7/8)"
	.get_Panel(1).Text = Exstatusbar1.get_Panel(1).Index
	.EndUpdate()
End With
84:
How can I change the panel's visual appearance using EBN files

With Exstatusbar1
	.BeginUpdate()
	.Appearance = exontrol.EXSTATUSBARLib.AppearanceEnum.None2
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1,2,3,4,(5/6/7/8)"
	.Debug = True
	.EndUpdate()
End With
83:
How can I change the panel's visual appearance using EBN files

With Exstatusbar1
	.BeginUpdate()
	With .VisualAppearance
		.Add(3,"c:\exontrol\images\normal.ebn")
		.Add(4,"c:\exontrol\images\pushed.ebn")
		.Add(1,"CP:3 2 2 -2 -2")
		.Add(2,"CP:4 2 2 -2 -2")
	End With
	.BackColorPanels32 = &H5000000
	.Format = "1,2"
	With .get_Panel(1)
		.Text = "Panel 1"
		.BackColor32 = &H1000000
	End With
	With .get_Panel(2)
		.Text = "Panel 2"
		.BackColor32 = &H2000000
	End With
	.EndUpdate()
End With
82:
How can I change the panel's visual appearance using EBN files

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.BackColorPanels32 = &H5000000
	.Format = """"":4,((4;""""/1/4;""""),"""":4,(4;""""/2/4;"""")),"""":4"
	With .get_Panel(1)
		.Text = "Panel 1"
		.BackColor32 = &H1000000
	End With
	With .get_Panel(2)
		.Text = "Panel 2"
		.BackColor32 = &H2000000
	End With
	.EndUpdate()
End With
81:
How can I change the panel's background color

With Exstatusbar1
	.BeginUpdate()
	.Format = """"":4,((4;""""/1/4;""""),"""":4,(4;""""/2/4;"""")),"""":4"
	With .get_Panel(1)
		.Text = "Panel 1"
		.BackColor = Color.FromArgb(255,255,0)
	End With
	With .get_Panel(2)
		.Text = "Panel 2"
		.BackColor = Color.FromArgb(255,0,255)
	End With
	.EndUpdate()
End With
80:
How can I change the caption's foreground color

Dim var_Panel
With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1:48/2"
	With .get_Panel(1)
		.Text = "Panel 1"
		.ForeColor = Color.FromArgb(255,255,0)
	End With
	var_Panel = .get_Panel(2)
	With var_Panel
		.Text = "Panel 2"
		.ForeColor = Color.FromArgb(255,0,255)
	End With
	.EndUpdate()
End With
79:
How can I show in strikeout the caption in the panel

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2"
	With .get_Panel(1)
		.Text = "Panel 1"
		.StrikeOut = True
	End With
	.get_Panel(2).Text = "<s>Panel</s> 2"
	.EndUpdate()
End With
78:
How can I underline the caption in the panel

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2"
	With .get_Panel(1)
		.Text = "Panel 1"
		.Underline = True
	End With
	.get_Panel(2).Text = "<u>Panel</u> 2"
	.EndUpdate()
End With
77:
How can I show in italic a specified panel

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2"
	With .get_Panel(1)
		.Text = "Panel 1"
		.Italic = True
	End With
	.get_Panel(2).Text = "<i>Panel</i> 2"
	.EndUpdate()
End With
76:
How can I show in bold a specified panel

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2"
	With .get_Panel(1)
		.Text = "Panel 1"
		.Bold = True
	End With
	.get_Panel(2).Text = "<b>Panel</b> 2"
	.EndUpdate()
End With
75:
How do I control the padding on the left, top or other sides

With Exstatusbar1
	.BeginUpdate()
	.Debug = True
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2/(3,4)"
	With .get_Panel(3)
		.Text = "Arrange the panels as you want using CRD strings"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignTopLeft
		.ToolTipText = .Text
		.Offset = "10 10 -10 -10"
	End With
	.EndUpdate()
End With
74:
How can I display the panel using a single line

With Exstatusbar1
	.BeginUpdate()
	.Debug = True
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2/(3,4)"
	With .get_Panel(3)
		.Text = "Arrange the panels as you want using CRD strings"
		.ToolTipText = .Text
		.WordWrap = False
	End With
	.EndUpdate()
End With
73:
How can I align the text inside the panel

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "(0/16/32),(1/17/33),(2/18/34)"
	With .get_Panel(0)
		.Text = "exAlignTopLeft"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignTopLeft
	End With
	With .get_Panel(1)
		.Text = "exAlignTopCenter"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignTopCenter
	End With
	With .get_Panel(2)
		.Text = "exAlignTopRight"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignTopRight
	End With
	With .get_Panel(16)
		.Text = "exAlignMiddleLeft"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft
	End With
	With .get_Panel(17)
		.Text = "exAlignMiddleCenter"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleCenter
	End With
	With .get_Panel(18)
		.Text = "exAlignMiddleRight"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleRight
	End With
	With .get_Panel(32)
		.Text = "exAlignBottomLeft"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignBottomLeft
	End With
	With .get_Panel(33)
		.Text = "exAlignBottomCenter"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignBottomCenter
	End With
	With .get_Panel(34)
		.Text = "exAlignBottomRight"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignBottomRight
	End With
	.EndUpdate()
End With
72:
How can I display the <b> in the panel's caption

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1"
	.get_Panel(1).Text = "<b>Bold</b>"
	.EndUpdate()
End With
71:
How can I insert anchors or hyperlinks

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2"
	.get_Panel(1).Text = "Link <a1>1</a>"
	.get_Panel(2).Text = "<a2>Link 2</a>"
	.EndUpdate()
End With
70:
How can I change the font for a panel

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2"
	.get_Panel(1).Text = "<font Tahoma>Panel 1</font>"
	.get_Panel(2).Text = "<font System>Panel 2</font>"
	.EndUpdate()
End With
69:
Is there any option to display the text using different fonts

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2"
	.get_Panel(1).Text = "Panel <font Tahoma;20>1</font>"
	.get_Panel(2).Text = "Panel <font Tahoma;16>2</font>"
	.EndUpdate()
End With
68:
Is there any option to insert custom size pictures in the text

With Exstatusbar1
	.BeginUpdate()
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.set_HTMLPicture("pic2","c:\exontrol\images\auction.gif")
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2"
	.get_Panel(1).Text = "Panel 1<img>pic1</img>"
	.get_Panel(2).Text = "Panel <img>pic2</img> 2"
	.EndUpdate()
End With
67:
Is there any option to insert icons in the text

With Exstatusbar1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2"
	.get_Panel(1).Text = "Panel 1<img>1</img>"
	.get_Panel(2).Text = "<img>2</img>Panel 2"
	.EndUpdate()
End With
66:
How do I show the panel's caption using multiple lines

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2"
	.get_Panel(1).Text = "Panel 1<br>Line 1<br>Line2"
	.get_Panel(2).Text = "<bgcolor=FFFF00>Panel</bgcolor> 2"
	.EndUpdate()
End With
65:
How do I show a portion of the text using a different background color

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2"
	.get_Panel(1).Text = "<bgcolor=FF0000>Panel</bgcolor> 1"
	.get_Panel(2).Text = "<bgcolor=FFFF00>Panel</bgcolor> 2"
	.EndUpdate()
End With
64:
How do I show a portion of the text in a different color

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2"
	.get_Panel(1).Text = "<fgcolor=FF0000>Panel</fgcolor> 1"
	.get_Panel(2).Text = "<fgcolor=FFFF00>Panel</fgcolor> 2"
	.EndUpdate()
End With
63:
How do I show a portion of the text as italic in the panel

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2"
	.get_Panel(1).Text = "<i>Panel</i> 1"
	.get_Panel(2).Text = "<i>Panel</i> 2"
	.EndUpdate()
End With
62:
How do I show a portion of the text as strikeout in the panel

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2"
	.get_Panel(1).Text = "<s>Panel</s> 1"
	.get_Panel(2).Text = "<s>Panel</s> 2"
	.EndUpdate()
End With
61:
How do I underline a portion of the text in the panel

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2"
	.get_Panel(1).Text = "<u>Panel</u> 1"
	.get_Panel(2).Text = "<u>Panel</u> 2"
	.EndUpdate()
End With
60:
How do I bold a portion of the text in the panel

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2"
	.get_Panel(1).Text = "<b>Panel</b> 1"
	.get_Panel(2).Text = "<b>Panel</b> 2"
	.EndUpdate()
End With
59:
How do I assign a caption or a text to a panel

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.BackColor32 = &H8000000f
	.Format = "1/2"
	.get_Panel(1).Text = "Panel 1"
	.get_Panel(2).Text = "Panel 2"
	.EndUpdate()
End With
58:
How do I access properties and methods of the panel

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1010/2020"
	With .get_Panel(1010)
		.Text = "Panel 1"
		.Bold = True
	End With
	.get_Panel(2020).Text = "Panel 2"
	.EndUpdate()
End With
57:
How do I clear the panels

With Exstatusbar1
	.BeginUpdate()
	.BackColor32 = &H8000000f
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1/2/48;(3,4:48)"
	.get_Panel(1).Text = "Panel 1"
	.get_Panel(2).Text = "Panel 2"
	.get_Panel(3).Text = "Panel 3"
	.get_Panel(4).Text = "Panel 4"
	.ClearPanels()
	.EndUpdate()
End With
56:
How can I add or arrange the panels in the status bar control

With Exstatusbar1
	.BeginUpdate()
	.Format = """<a1>link</a>""[a=17]:64,11:64,((24;21/""Arrange the panels as you want using CRD strings""[a=17][ww])/24;3),(33/44):48"
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\border.ebn")
		.Add(2,"c:\exontrol\images\border.ebn")
		.Add(3,"CP:2 1 1 -1 -1")
	End With
	.Appearance = exontrol.EXSTATUSBARLib.AppearanceEnum.None2
	.BackColor32 = &H8000000f
	.BackColorPanels32 = &H3000000
	.get_Panel(11).Text = "Panel <b>1</b>"
	With .get_Panel(3)
		.Transparency = 50
		.Text = "<img>1</img>75%"
		.Percent = 75
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft
		.Offset = "4 4 -4 -4"
		.OffsetPercent = .Offset
		.BackColorPercent32 = &H1000000
	End With
	.get_Panel(21).Image = 1
	With .get_Panel(33)
		.Text = "Panel 3"
		.Bold = True
		.Enabled = False
	End With
	.get_Panel(44).Text = "Panel 4"
	.EndUpdate()
End With
55:
How can I add three panels aligned from top to bottom, and the last divided in two panels

With Exstatusbar1
	.BeginUpdate()
	.BackColor32 = &H8000000f
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1/2/48;(3,4:48)"
	.get_Panel(1).Text = "Panel 1"
	.get_Panel(2).Text = "Panel 2"
	.get_Panel(3).Text = "Panel 3"
	.get_Panel(4).Text = "Panel 4"
	.EndUpdate()
End With
54:
How can I add three panels aligned from top to bottom

With Exstatusbar1
	.BeginUpdate()
	.BackColor32 = &H8000000f
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1/2/3"
	.get_Panel(1).Text = "Panel 1"
	.get_Panel(2).Text = "Panel 2"
	.get_Panel(3).Text = "Panel 3"
	.EndUpdate()
End With
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

With Exstatusbar1
	.BeginUpdate()
	.BackColor32 = &H8000000f
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1:64,""<img>1</img> just text and so on ...""[a=17],2:96"
	.get_Panel(1).Text = "Panel 1"
	.get_Panel(2).Text = "Panel 2"
	.EndUpdate()
End With
52:
How can I add two panels to the status bar control, first aligned to the left, the second aligned to the right

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1:64,"""",2:96"
	.get_Panel(1).Text = "Panel 1"
	.get_Panel(2).Text = "Panel 2"
	.EndUpdate()
End With
51:
How can I add two panels to the status bar control, so the first has a specified width

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1:64,2"
	.get_Panel(1).Text = "Panel 1"
	.get_Panel(2).Text = "Panel 2"
	.EndUpdate()
End With
50:
How can I add two panels to the status bar control, so the second has a specified width

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2:64"
	.get_Panel(1).Text = "Panel 1"
	.get_Panel(2).Text = "Panel 2"
	.EndUpdate()
End With
49:
How can I add two panels to the status bar control

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2"
	.get_Panel(1).Text = "Panel 1"
	.get_Panel(2).Text = "Panel 2"
	.EndUpdate()
End With
48:
How do I add one panel to the status bar control

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 2 2 -2 -2")
	.BackColorPanels32 = &H5000000
	.Format = "1"
	.get_Panel(1).Text = "Panel 1"
	.EndUpdate()
End With
47:
How do I arrange the panels in the status bar

With Exstatusbar1
	.BeginUpdate()
	.Debug = True
	.VisualAppearance.Add(4,"c:\exontrol\images\hot.ebn")
	.VisualAppearance.Add(5,"CP:4 2 2 -2 -2")
	.BackColorPanels32 = &H5000000
	.Format = """<a1>link</a>""[a=17]:64,11:64,((24;21/""Arrange the panels as you want using CRD strings""[a=17][ww])/24;3),(33/44):48"
	.EndUpdate()
End With
46:
How do I arrange the panels in the status bar

With Exstatusbar1
	.BeginUpdate()
	.Debug = True
	.VisualAppearance.Add(4,"c:\exontrol\images\pushed.ebn")
	.VisualAppearance.Add(5,"CP:4 2 2 -2 -2")
	.BackColorPanels32 = &H5000000
	.Format = "1,2:32,(3/4/5)"
	.EndUpdate()
End With
45:
How do I arrange the panels in the status bar

With Exstatusbar1
	.BeginUpdate()
	.Debug = True
	.VisualAppearance.Add(4,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(5,"CP:4 2 2 -2 -2")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,(3/4/5)"
	.EndUpdate()
End With
44:
How do I get the panel from the cursor
Dim p
With Exstatusbar1
	p = .get_PanelFromPoint(-1,-1)
End With
43:
How do I draw a border for all panels

With Exstatusbar1
	.BeginUpdate()
	.Debug = True
	.VisualAppearance.Add(4,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(5,"CP:4 2 2 -2 -2")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,(3/4/5)"
	.EndUpdate()
End With
42:
How do I draw a border for all panels

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 2 2 -2 -2")
	.BackColorPanels32 = &H5000000
	.Debug = True
	.Format = "(0/1:32),2,(3/4/5)"
	.EndUpdate()
End With
41:
Is there any option to display the identifiers of the panels

With Exstatusbar1
	.BeginUpdate()
	.Debug = True
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3"
	.get_Panel(1).Text = "Panel 1"
	.get_Panel(2).Text = "Panel 2"
	.get_Panel(3).Text = "Panel 3"
	.EndUpdate()
End With
40:
Can I get the anchor from the point so I can display a tooltip
With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3"
	.get_Panel(1).Text = "<a1>link 1</a>"
	.get_Panel(2).Text = "<a2>link 2</a>"
	.get_Panel(3).Text = "<a3>link 3</a>"
	.ShowToolTip(.get_AnchorFromPoint(-1,-1))
	.EndUpdate()
End With
39:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

With Exstatusbar1
	.BeginUpdate()
	.set_FormatAnchor(False,"<b><u><fgcolor=880000> </fgcolor></u></b>")
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3"
	.get_Panel(1).Text = "<a1>link 1</a>"
	.get_Panel(2).Text = "<a2>link 2</a>"
	.get_Panel(3).Text = "<a3>link 3</a>"
	.EndUpdate()
End With
38:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

With Exstatusbar1
	.BeginUpdate()
	.set_FormatAnchor(True,"<b><u><fgcolor=FF0000> </fgcolor></u></b>")
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3"
	.get_Panel(1).Text = "<a1>link 1</a>"
	.get_Panel(2).Text = "<a2>link 2</a>"
	.get_Panel(3).Text = "<a3>link 3</a>"
	.EndUpdate()
End With
37:
Can I displays a custom size picture to panels

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.Format = "1,2,3,4"
	.get_Panel(1).Text = "<img>pic1</img>"
	.EndUpdate()
End With
36:
How can I show the tooltip programatically
With Exstatusbar1
	.ShowToolTip("This is a bit of text that should appear when ShowToolTip method is called.")
End With
35:
I've seen that the width of the tooltip is variable. Can I make it larger

With Exstatusbar1
	.BeginUpdate()
	.ToolTipDelay = 1
	.ToolTipWidth = 426
	.Format = "1"
	With .get_Panel(1)
		.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
		.ToolTipText = .Text
		.ToolTipTitle = "Title"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft
	End With
	.EndUpdate()
End With
34:
How do I call your x-script language

With Exstatusbar1
	.Debug = True
	.Format = "1"
	.ExecuteTemplate("Panel(1)").Text = "this is called through ExecuteTemplate property"
End With
33:
How do I call your x-script language

With Exstatusbar1
	.Template = "BackColor = RGB(255,0,0)"
End With
32:
How can I disable the control

With Exstatusbar1
	.BeginUpdate()
	.Enabled = False
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3,4,(5/6/7/8)"
	.get_Panel(1).Image = 1
	.get_Panel(2).Text = "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> icons"
	With .get_Panel(3)
		.Text = "<img>2</img>"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleRight
	End With
	.EndUpdate()
End With
31:
How do I let the tooltip being displayed longer

With Exstatusbar1
	.BeginUpdate()
	.ToolTipDelay = 1
	.ToolTipPopDelay = 10000
	.Format = "1"
	With .get_Panel(1)
		.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
		.ToolTipText = .Text
		.ToolTipTitle = "Title"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft
	End With
	.EndUpdate()
End With
30:
Can I change the background color for the tooltip

With Exstatusbar1
	.BeginUpdate()
	.ToolTipDelay = 1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background32(exontrol.EXSTATUSBARLib.BackgroundPartEnum.exToolTipAppearance,&H1000000)
	.set_Background(exontrol.EXSTATUSBARLib.BackgroundPartEnum.exToolTipBackColor,Color.FromArgb(246,245,240))
	.Format = "1"
	With .get_Panel(1)
		.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
		.ToolTipText = .Text
		.ToolTipTitle = "Title"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft
	End With
	.EndUpdate()
End With
29:
Can I change the background color for the tooltip

With Exstatusbar1
	.BeginUpdate()
	.ToolTipDelay = 1
	.set_Background(exontrol.EXSTATUSBARLib.BackgroundPartEnum.exToolTipBackColor,Color.FromArgb(255,0,0))
	.Format = "1"
	With .get_Panel(1)
		.Text = "Drag the cursor hover so the tooltip shows up"
		.ToolTipText = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a panel"
	End With
	.EndUpdate()
End With
28:
Does the tooltip support HTML format

With Exstatusbar1
	.BeginUpdate()
	.ToolTipDelay = 1
	.Format = "1"
	With .get_Panel(1)
		.Text = "Drag the cursor hover so the tooltip shows up"
		.ToolTipText = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>panel</fgcolor>"
	End With
	.EndUpdate()
End With
27:
Can I change the forecolor for the tooltip

With Exstatusbar1
	.BeginUpdate()
	.ToolTipDelay = 1
	.set_Background(exontrol.EXSTATUSBARLib.BackgroundPartEnum.exToolTipForeColor,Color.FromArgb(255,0,0))
	.Format = "1"
	With .get_Panel(1)
		.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
		.ToolTipText = .Text
		.ToolTipTitle = "Title"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft
	End With
	.EndUpdate()
End With
26:
Can I change the foreground color for the tooltip

With Exstatusbar1
	.BeginUpdate()
	.ToolTipDelay = 1
	With .ToolTipFont
		.Name = "Tahoma"
		.Size = 14
	End With
	.ToolTipWidth = 364
	.Format = "1"
	With .get_Panel(1)
		.Text = "this is a tooltip assigned to a panel"
		.ToolTipText = "<fgcolor=FF0000>this is a tooltip assigned to a panel</fgcolor>"
		.ToolTipTitle = "Title"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft
	End With
	.EndUpdate()
End With
25:
Can I change the font for the tooltip

With Exstatusbar1
	.BeginUpdate()
	.ToolTipDelay = 1
	With .ToolTipFont
		.Name = "Tahoma"
		.Size = 14
	End With
	.ToolTipWidth = 364
	.Format = "1"
	With .get_Panel(1)
		.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
		.ToolTipText = .Text
		.ToolTipTitle = "Title"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft
	End With
	.EndUpdate()
End With
24:
How do I disable showing the tooltip for all control
With Exstatusbar1
	.BeginUpdate()
	.ToolTipDelay = 0
	.Format = "1"
	With .get_Panel(1)
		.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
		.ToolTipText = .Text
		.ToolTipTitle = "Title"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft
	End With
	.EndUpdate()
End With
23:
How do I show the tooltip quicker

With Exstatusbar1
	.BeginUpdate()
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background32(exontrol.EXSTATUSBARLib.BackgroundPartEnum.exToolTipAppearance,&H1000000)
	.Format = "1"
	With .get_Panel(1)
		.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
		.ToolTipText = .Text
		.ToolTipTitle = "Title"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft
	End With
	.EndUpdate()
End With
22:
Can I change the default border of the tooltip, using your EBN files

With Exstatusbar1
	.BeginUpdate()
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background32(exontrol.EXSTATUSBARLib.BackgroundPartEnum.exToolTipAppearance,&H1000000)
	.Format = "1"
	With .get_Panel(1)
		.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
		.ToolTipText = .Text
		.ToolTipTitle = "Title"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft
	End With
	.EndUpdate()
End With
21:
How do I retrieve the handle of the window
With Exstatusbar1
	.Format = .hWnd
	.ClearPanels()
End With
20:
How can I prevent the control from painting when multiple changes occurs
With Exstatusbar1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3,4,(5/6/7/8)"
	.get_Panel(1).Image = 1
	.get_Panel(2).Text = "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> icons"
	With .get_Panel(3)
		.Text = "<img>2</img>"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleRight
	End With
	.EndUpdate()
End With
19:
How can I insert an icon aligned to the right

With Exstatusbar1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3,4,(5/6/7/8)"
	With .get_Panel(2)
		.Text = "<img>2</img>"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleRight
	End With
	.EndUpdate()
End With
18:
How can I insert an icon to a panel

With Exstatusbar1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3,4,(5/6/7/8)"
	.get_Panel(2).Text = "<img>2</img>"
	.EndUpdate()
End With
17:
How can I insert icons to status bar control

With Exstatusbar1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3,4,(5/6/7/8)"
	.get_Panel(1).Image = 1
	.get_Panel(2).Text = "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> icons"
	With .get_Panel(3)
		.Text = "<img>2</img>"
		.Alignment = exontrol.EXSTATUSBARLib.TextAlignEnum.exAlignMiddleRight
	End With
	.EndUpdate()
End With
16:
How can I insert an icon to a panel

With Exstatusbar1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3,4,(5/6/7/8)"
	.get_Panel(1).Image = 1
	.EndUpdate()
End With
15:
Is there any option to increase the empty space on borders of the control

With Exstatusbar1
	.BeginUpdate()
	.BorderWidth = 20
	.BorderHeight = 20
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3,4,(5/6/7/8)"
	.Debug = True
	.EndUpdate()
End With
14:
How do I get the version of the control
With Exstatusbar1
	.BeginUpdate()
	.Format = .Version
	.ClearPanels()
	.EndUpdate()
End With
13:
How do I put a picture on the center of the control

With Exstatusbar1
	.BeginUpdate()
	.Picture = Exstatusbar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = exontrol.EXSTATUSBARLib.PictureDisplayEnum.MiddleCenter
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3,4,(5/6/7/8)"
	.Debug = True
	.EndUpdate()
End With
12:
How do I resize/stretch a picture on the control's background

With Exstatusbar1
	.BeginUpdate()
	.Picture = Exstatusbar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = exontrol.EXSTATUSBARLib.PictureDisplayEnum.Stretch
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3,4,(5/6/7/8)"
	.Debug = True
	.EndUpdate()
End With
11:
How do I put a picture on the control's center right bottom side

With Exstatusbar1
	.BeginUpdate()
	.Picture = Exstatusbar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = exontrol.EXSTATUSBARLib.PictureDisplayEnum.LowerRight
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3,4,(5/6/7/8)"
	.Debug = True
	.EndUpdate()
End With
10:
How do I put a picture on the control's center left bottom side

With Exstatusbar1
	.BeginUpdate()
	.Picture = Exstatusbar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = exontrol.EXSTATUSBARLib.PictureDisplayEnum.LowerLeft
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3,4,(5/6/7/8)"
	.Debug = True
	.EndUpdate()
End With
9:
How do I put a picture on the control's center top side

With Exstatusbar1
	.BeginUpdate()
	.Picture = Exstatusbar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = exontrol.EXSTATUSBARLib.PictureDisplayEnum.UpperCenter
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3,4,(5/6/7/8)"
	.Debug = True
	.EndUpdate()
End With
8:
How do I put a picture on the control's right top corner

With Exstatusbar1
	.BeginUpdate()
	.Picture = Exstatusbar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = exontrol.EXSTATUSBARLib.PictureDisplayEnum.UpperRight
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3,4,(5/6/7/8)"
	.Debug = True
	.EndUpdate()
End With
7:
How do I put a picture on the control's left top corner

With Exstatusbar1
	.BeginUpdate()
	.Picture = Exstatusbar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = exontrol.EXSTATUSBARLib.PictureDisplayEnum.UpperLeft
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3,4,(5/6/7/8)"
	.Debug = True
	.EndUpdate()
End With
6:
How do I put a picture on the control's background

With Exstatusbar1
	.BeginUpdate()
	.Picture = Exstatusbar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3,4,(5/6/7/8)"
	.Debug = True
	.EndUpdate()
End With
5:
How do I change the control's foreground color

With Exstatusbar1
	.BeginUpdate()
	.ForeColor = Color.FromArgb(120,120,120)
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3,4,(5/6/7/8)"
	.Debug = True
	.EndUpdate()
End With
4:
How do I change the control's background color

With Exstatusbar1
	.BeginUpdate()
	.BackColor = Color.FromArgb(200,200,200)
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3,4,(5/6/7/8)"
	.Debug = True
	.EndUpdate()
End With
3:
How do I change the control's border, using your EBN files

With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Appearance = &H1000000
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3,4,(5/6/7/8)"
	.Debug = True
	.EndUpdate()
End With
2:
How do I remove the control's border

With Exstatusbar1
	.BeginUpdate()
	.Appearance = exontrol.EXSTATUSBARLib.AppearanceEnum.None2
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	.Format = "1,2,3,4,(5/6/7/8)"
	.Debug = True
	.EndUpdate()
End With
1:
How can I change the control's font

Dim f
With Exstatusbar1
	.BeginUpdate()
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels32 = &H5000000
	f = New stdole.StdFont()
	With f
		.Name = "Verdana"
		.Size = 12
	End With
	.Font = f
	.Format = """static text""[fg=255][a=17],11,22,(33/44)"
	.EndUpdate()
End With