101:
How can I use the BackgroundExt property

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Format = "1,2,3"
		With .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 .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 .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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.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
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2,(24;5/6)"
		With .Panel(1)
			.ControlID = "MSCAL.Calendar"
			With .Object
				.MonthLength = 0
				.BackColor = RGB(255,255,255)
			End With
		End With
		With .Panel(5)
			.Text = "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>"
			.Alignment = 16
			.Percent = 75
			.Transparency = 35
			.Offset = "4 2 -4 -2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.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
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2,(24;5/6)"
		.Panel(1).ControlID = "MSChart20Lib.MSChart"
		.Panel(2).ControlID = "MSCAL.Calendar"
		With .Panel(5)
			.Text = "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>"
			.Alignment = 16
			.Percent = 75
			.Transparency = 35
			.Offset = "4 2 -4 -2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.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
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2,(24;5/6)"
		With .Panel(5)
			.Text = "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>"
			.Alignment = 16
			.Percent = 75
			.Transparency = 35
			.Offset = "4 2 -4 -2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		With .VisualAppearance
			.Add 4,"c:\exontrol\images\border.ebn"
			.Add 5,"CP:4 1 1 -1 -1"
		End With
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2,(24;5/6)"
		With .Panel(5)
			.Text = "15%"
			.Percent = 15
			.OffsetPercent = "6 6 -6 -6"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.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
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2,(24;5/6)"
		With .Panel(5)
			.BackColor = RGB(255,255,255)
			.Text = "15%"
			.Percent = 15
			.BackColorPercent = &H1000000
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.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
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2,(24;5/6)"
		With .Panel(5)
			.Text = "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>"
			.Alignment = 16
			.Percent = 75
			.Transparency = 35
			.Offset = "4 2 -4 -2"
			.BackColorPercent = &H1000000
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2,(24;5/6)"
		With .Panel(5)
			.Text = "15%"
			.Percent = 15
			.BackColorPercent = RGB(255,0,0)
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2,(24;5/6)"
		With .Panel(5)
			.Text = "15%"
			.Percent = 15
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2,(5/6)"
		With .Panel(5)
			.Text = .Width
		End With
		With .Panel(6)
			.Text = .Height
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

91:
How can I disable a panel

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2,(5/6)"
		With .Panel(5)
			.Text = "Disabled"
			.Enabled = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2,(5/6/7/8)"
		With .Panel(5)
			.Text = "UserData"
			.UserData = "this is just some extra data associated to the panel"
			.ToolTipText = .UserData
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

89:
Is there any option to draw myself the panel

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2,(5/6/7/8)"
		With .Panel(5)
			.Text = "OwnerDraw"
			.OwnerDraw = True
		End With
		.Debug = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

88:
How can I assign a tooltip to a panel

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.ToolTipDelay = 1
		.ToolTipWidth = 364
		.Format = "1/2/3"
		With .Panel(1)
			.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
			.ToolTipText = .Text
			.ToolTipTitle = "Title"
			.Alignment = 16
		End With
		With .Panel(2)
			.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
			.ToolTipText = .Text
			.ToolTipTitle = "Title"
			.Alignment = 16
		End With
		With .Panel(3)
			.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
			.ToolTipText = .Text
			.ToolTipTitle = "Title"
			.Alignment = 16
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.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"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1,2,3,4,(5/6/7/8)"
		.Panel(1).Image = 1
		.Panel(6).Image = 2
		.Panel(8).Image = 3
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

86:
How can I get the index of the panel

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Appearance = 0
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1,2,3,4,(5/6/7/8)"
		.Debug = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

85:
How can I get the index of the panel

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Appearance = 0
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1,2,3,4,(5/6/7/8)"
		.Panel(1).Text = StatusBar1.Panel(1).Index
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Appearance = 0
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1,2,3,4,(5/6/7/8)"
		.Debug = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.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
		.BackColorPanels = &H5000000
		.Format = "1,2"
		With .Panel(1)
			.Text = "Panel 1"
			.BackColor = &H1000000
		End With
		With .Panel(2)
			.Text = "Panel 2"
			.BackColor = &H2000000
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
		.BackColorPanels = &H5000000
		.Format = """"":4,((4;""""/1/4;""""),"""":4,(4;""""/2/4;"""")),"""":4"
		With .Panel(1)
			.Text = "Panel 1"
			.BackColor = &H1000000
		End With
		With .Panel(2)
			.Text = "Panel 2"
			.BackColor = &H2000000
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Format = """"":4,((4;""""/1/4;""""),"""":4,(4;""""/2/4;"""")),"""":4"
		With .Panel(1)
			.Text = "Panel 1"
			.BackColor = RGB(255,255,0)
		End With
		With .Panel(2)
			.Text = "Panel 2"
			.BackColor = RGB(255,0,255)
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1:48/2"
		With .Panel(1)
			.Text = "Panel 1"
			.ForeColor = RGB(255,255,0)
		End With
		Set var_Panel = .Panel(2)
		With var_Panel
			.Text = "Panel 2"
			.ForeColor = RGB(255,0,255)
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2"
		With .Panel(1)
			.Text = "Panel 1"
			.StrikeOut = True
		End With
		.Panel(2).Text = "<s>Panel</s> 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

78:
How can I underline the caption in the panel

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2"
		With .Panel(1)
			.Text = "Panel 1"
			.Underline = True
		End With
		.Panel(2).Text = "<u>Panel</u> 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

77:
How can I show in italic a specified panel

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2"
		With .Panel(1)
			.Text = "Panel 1"
			.Italic = True
		End With
		.Panel(2).Text = "<i>Panel</i> 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

76:
How can I show in bold a specified panel

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2"
		With .Panel(1)
			.Text = "Panel 1"
			.Bold = True
		End With
		.Panel(2).Text = "<b>Panel</b> 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Debug = True
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2/(3,4)"
		With .Panel(3)
			.Text = "Arrange the panels as you want using CRD strings"
			.Alignment = 0
			.ToolTipText = .Text
			.Offset = "10 10 -10 -10"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Debug = True
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2/(3,4)"
		With .Panel(3)
			.Text = "Arrange the panels as you want using CRD strings"
			.ToolTipText = .Text
			.WordWrap = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

73:
How can I align the text inside the panel

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "(0/16/32),(1/17/33),(2/18/34)"
		With .Panel(0)
			.Text = "exAlignTopLeft"
			.Alignment = 0
		End With
		With .Panel(1)
			.Text = "exAlignTopCenter"
			.Alignment = 1
		End With
		With .Panel(2)
			.Text = "exAlignTopRight"
			.Alignment = 2
		End With
		With .Panel(16)
			.Text = "exAlignMiddleLeft"
			.Alignment = 16
		End With
		With .Panel(17)
			.Text = "exAlignMiddleCenter"
			.Alignment = 17
		End With
		With .Panel(18)
			.Text = "exAlignMiddleRight"
			.Alignment = 18
		End With
		With .Panel(32)
			.Text = "exAlignBottomLeft"
			.Alignment = 32
		End With
		With .Panel(33)
			.Text = "exAlignBottomCenter"
			.Alignment = 33
		End With
		With .Panel(34)
			.Text = "exAlignBottomRight"
			.Alignment = 34
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1"
		.Panel(1).Text = "<b>Bold</b>"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

71:
How can I insert anchors or hyperlinks

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2"
		.Panel(1).Text = "Link <a1>1</a>"
		.Panel(2).Text = "<a2>Link 2</a>"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

70:
How can I change the font for a panel

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2"
		.Panel(1).Text = "<font Tahoma>Panel 1</font>"
		.Panel(2).Text = "<font System>Panel 2</font>"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2"
		.Panel(1).Text = "Panel <font Tahoma;20>1</font>"
		.Panel(2).Text = "Panel <font Tahoma;16>2</font>"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2"
		.Panel(1).Text = "Panel 1<img>pic1</img>"
		.Panel(2).Text = "Panel <img>pic2</img> 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.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"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2"
		.Panel(1).Text = "Panel 1<img>1</img>"
		.Panel(2).Text = "<img>2</img>Panel 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2"
		.Panel(1).Text = "Panel 1<br>Line 1<br>Line2"
		.Panel(2).Text = "<bgcolor=FFFF00>Panel</bgcolor> 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2"
		.Panel(1).Text = "<bgcolor=FF0000>Panel</bgcolor> 1"
		.Panel(2).Text = "<bgcolor=FFFF00>Panel</bgcolor> 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2"
		.Panel(1).Text = "<fgcolor=FF0000>Panel</fgcolor> 1"
		.Panel(2).Text = "<fgcolor=FFFF00>Panel</fgcolor> 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2"
		.Panel(1).Text = "<i>Panel</i> 1"
		.Panel(2).Text = "<i>Panel</i> 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2"
		.Panel(1).Text = "<s>Panel</s> 1"
		.Panel(2).Text = "<s>Panel</s> 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2"
		.Panel(1).Text = "<u>Panel</u> 1"
		.Panel(2).Text = "<u>Panel</u> 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2"
		.Panel(1).Text = "<b>Panel</b> 1"
		.Panel(2).Text = "<b>Panel</b> 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.BackColor = &H8000000f
		.Format = "1/2"
		.Panel(1).Text = "Panel 1"
		.Panel(2).Text = "Panel 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.Format = "1010/2020"
		With .Panel(1010)
			.Text = "Panel 1"
			.Bold = True
		End With
		.Panel(2020).Text = "Panel 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

57:
How do I clear the panels

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.BackColor = &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"
		.BackColorPanels = &H5000000
		.Format = "1/2/48;(3,4:48)"
		.Panel(1).Text = "Panel 1"
		.Panel(2).Text = "Panel 2"
		.Panel(3).Text = "Panel 3"
		.Panel(4).Text = "Panel 4"
		.ClearPanels 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.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 = 0
		.BackColor = &H8000000f
		.BackColorPanels = &H3000000
		.Panel(11).Text = "Panel <b>1</b>"
		With .Panel(3)
			.Transparency = 50
			.Text = "<img>1</img>75%"
			.Percent = 75
			.Alignment = 16
			.Offset = "4 4 -4 -4"
			.OffsetPercent = .Offset
			.BackColorPercent = &H1000000
		End With
		.Panel(21).Image = 1
		With .Panel(33)
			.Text = "Panel 3"
			.Bold = True
			.Enabled = False
		End With
		.Panel(44).Text = "Panel 4"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.BackColor = &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"
		.BackColorPanels = &H5000000
		.Format = "1/2/48;(3,4:48)"
		.Panel(1).Text = "Panel 1"
		.Panel(2).Text = "Panel 2"
		.Panel(3).Text = "Panel 3"
		.Panel(4).Text = "Panel 4"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.BackColor = &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"
		.BackColorPanels = &H5000000
		.Format = "1/2/3"
		.Panel(1).Text = "Panel 1"
		.Panel(2).Text = "Panel 2"
		.Panel(3).Text = "Panel 3"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.BackColor = &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"
		.BackColorPanels = &H5000000
		.Format = "1:64,""<img>1</img> just text and so on ...""[a=17],2:96"
		.Panel(1).Text = "Panel 1"
		.Panel(2).Text = "Panel 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.Format = "1:64,"""",2:96"
		.Panel(1).Text = "Panel 1"
		.Panel(2).Text = "Panel 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.Format = "1:64,2"
		.Panel(1).Text = "Panel 1"
		.Panel(2).Text = "Panel 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.Format = "1,2:64"
		.Panel(1).Text = "Panel 1"
		.Panel(2).Text = "Panel 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.Format = "1,2"
		.Panel(1).Text = "Panel 1"
		.Panel(2).Text = "Panel 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 2 2 -2 -2"
		.BackColorPanels = &H5000000
		.Format = "1"
		.Panel(1).Text = "Panel 1"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Debug = True
		.VisualAppearance.Add 4,"c:\exontrol\images\hot.ebn"
		.VisualAppearance.Add 5,"CP:4 2 2 -2 -2"
		.BackColorPanels = &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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Debug = True
		.VisualAppearance.Add 4,"c:\exontrol\images\pushed.ebn"
		.VisualAppearance.Add 5,"CP:4 2 2 -2 -2"
		.BackColorPanels = &H5000000
		.Format = "1,2:32,(3/4/5)"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Debug = True
		.VisualAppearance.Add 4,"c:\exontrol\images\normal.ebn"
		.VisualAppearance.Add 5,"CP:4 2 2 -2 -2"
		.BackColorPanels = &H5000000
		.Format = "1,2,(3/4/5)"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

44:
How do I get the panel from the cursor
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		Set p = .PanelFromPoint(-1,-1)
	End With
End Function
</SCRIPT>
</BODY>

43:
How do I draw a border for all panels

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Debug = True
		.VisualAppearance.Add 4,"c:\exontrol\images\normal.ebn"
		.VisualAppearance.Add 5,"CP:4 2 2 -2 -2"
		.BackColorPanels = &H5000000
		.Format = "1,2,(3/4/5)"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

42:
How do I draw a border for all panels

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 2 2 -2 -2"
		.BackColorPanels = &H5000000
		.Debug = True
		.Format = "(0/1:32),2,(3/4/5)"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Debug = True
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.Format = "1,2,3"
		.Panel(1).Text = "Panel 1"
		.Panel(2).Text = "Panel 2"
		.Panel(3).Text = "Panel 3"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

40:
Can I get the anchor from the point so I can display a tooltip
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.Format = "1,2,3"
		.Panel(1).Text = "<a1>link 1</a>"
		.Panel(2).Text = "<a2>link 2</a>"
		.Panel(3).Text = "<a3>link 3</a>"
		.ShowToolTip .AnchorFromPoint(-1,-1)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.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"
		.BackColorPanels = &H5000000
		.Format = "1,2,3"
		.Panel(1).Text = "<a1>link 1</a>"
		.Panel(2).Text = "<a2>link 2</a>"
		.Panel(3).Text = "<a3>link 3</a>"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.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"
		.BackColorPanels = &H5000000
		.Format = "1,2,3"
		.Panel(1).Text = "<a1>link 1</a>"
		.Panel(2).Text = "<a2>link 2</a>"
		.Panel(3).Text = "<a3>link 3</a>"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

37:
Can I displays a custom size picture to panels

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.Format = "1,2,3,4"
		.Panel(1).Text = "<img>pic1</img>"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

36:
How can I show the tooltip programatically
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.ShowToolTip "This is a bit of text that should appear when ShowToolTip method is called."
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.ToolTipDelay = 1
		.ToolTipWidth = 426
		.Format = "1"
		With .Panel(1)
			.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
			.ToolTipText = .Text
			.ToolTipTitle = "Title"
			.Alignment = 16
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

34:
How do I call your x-script language

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.Debug = True
		.Format = "1"
		.ExecuteTemplate("Panel(1)").Text = "this is called through ExecuteTemplate property"
	End With
End Function
</SCRIPT>
</BODY>

33:
How do I call your x-script language

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.Template = "BackColor = RGB(255,0,0)"
	End With
End Function
</SCRIPT>
</BODY>

32:
How can I disable the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.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"
		.BackColorPanels = &H5000000
		.Format = "1,2,3,4,(5/6/7/8)"
		.Panel(1).Image = 1
		.Panel(2).Text = "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> icons"
		With .Panel(3)
			.Text = "<img>2</img>"
			.Alignment = 18
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

31:
How do I let the tooltip being displayed longer

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.ToolTipDelay = 1
		.ToolTipPopDelay = 10000
		.Format = "1"
		With .Panel(1)
			.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
			.ToolTipText = .Text
			.ToolTipTitle = "Title"
			.Alignment = 16
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

30:
Can I change the background color for the tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.ToolTipDelay = 1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(64) = &H1000000
		.Background(65) = RGB(246,245,240)
		.Format = "1"
		With .Panel(1)
			.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
			.ToolTipText = .Text
			.ToolTipTitle = "Title"
			.Alignment = 16
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

29:
Can I change the background color for the tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.ToolTipDelay = 1
		.Background(65) = RGB(255,0,0)
		.Format = "1"
		With .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
End Function
</SCRIPT>
</BODY>

28:
Does the tooltip support HTML format

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.ToolTipDelay = 1
		.Format = "1"
		With .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
End Function
</SCRIPT>
</BODY>

27:
Can I change the forecolor for the tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.ToolTipDelay = 1
		.Background(66) = RGB(255,0,0)
		.Format = "1"
		With .Panel(1)
			.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
			.ToolTipText = .Text
			.ToolTipTitle = "Title"
			.Alignment = 16
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

26:
Can I change the foreground color for the tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.ToolTipDelay = 1
		With .ToolTipFont
			.Name = "Tahoma"
			.Size = 14
		End With
		.ToolTipWidth = 364
		.Format = "1"
		With .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 = 16
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

25:
Can I change the font for the tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.ToolTipDelay = 1
		With .ToolTipFont
			.Name = "Tahoma"
			.Size = 14
		End With
		.ToolTipWidth = 364
		.Format = "1"
		With .Panel(1)
			.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
			.ToolTipText = .Text
			.ToolTipTitle = "Title"
			.Alignment = 16
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

24:
How do I disable showing the tooltip for all control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.ToolTipDelay = 0
		.Format = "1"
		With .Panel(1)
			.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
			.ToolTipText = .Text
			.ToolTipTitle = "Title"
			.Alignment = 16
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

23:
How do I show the tooltip quicker

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.ToolTipDelay = 1
		.ToolTipWidth = 364
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(64) = &H1000000
		.Format = "1"
		With .Panel(1)
			.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
			.ToolTipText = .Text
			.ToolTipTitle = "Title"
			.Alignment = 16
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.ToolTipDelay = 1
		.ToolTipWidth = 364
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(64) = &H1000000
		.Format = "1"
		With .Panel(1)
			.Text = "This is a bit of text that should occurs when the cursor hovers the panel"
			.ToolTipText = .Text
			.ToolTipTitle = "Title"
			.Alignment = 16
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

21:
How do I retrieve the handle of the window
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.Format = .hWnd
		.ClearPanels 
	End With
End Function
</SCRIPT>
</BODY>

20:
How can I prevent the control from painting when multiple changes occurs
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.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"
		.BackColorPanels = &H5000000
		.Format = "1,2,3,4,(5/6/7/8)"
		.Panel(1).Image = 1
		.Panel(2).Text = "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> icons"
		With .Panel(3)
			.Text = "<img>2</img>"
			.Alignment = 18
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.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"
		.BackColorPanels = &H5000000
		.Format = "1,2,3,4,(5/6/7/8)"
		With .Panel(2)
			.Text = "<img>2</img>"
			.Alignment = 18
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

18:
How can I insert an icon to a panel

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.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"
		.BackColorPanels = &H5000000
		.Format = "1,2,3,4,(5/6/7/8)"
		.Panel(2).Text = "<img>2</img>"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

17:
How can I insert icons to status bar control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.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"
		.BackColorPanels = &H5000000
		.Format = "1,2,3,4,(5/6/7/8)"
		.Panel(1).Image = 1
		.Panel(2).Text = "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> icons"
		With .Panel(3)
			.Text = "<img>2</img>"
			.Alignment = 18
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

16:
How can I insert an icon to a panel

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.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"
		.BackColorPanels = &H5000000
		.Format = "1,2,3,4,(5/6/7/8)"
		.Panel(1).Image = 1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.BorderWidth = 20
		.BorderHeight = 20
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.Format = "1,2,3,4,(5/6/7/8)"
		.Debug = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

14:
How do I get the version of the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Format = .Version
		.ClearPanels 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Picture = StatusBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 17
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.Format = "1,2,3,4,(5/6/7/8)"
		.Debug = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Picture = StatusBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 49
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.Format = "1,2,3,4,(5/6/7/8)"
		.Debug = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Picture = StatusBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 34
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.Format = "1,2,3,4,(5/6/7/8)"
		.Debug = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Picture = StatusBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 32
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.Format = "1,2,3,4,(5/6/7/8)"
		.Debug = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Picture = StatusBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 1
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.Format = "1,2,3,4,(5/6/7/8)"
		.Debug = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Picture = StatusBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 2
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.Format = "1,2,3,4,(5/6/7/8)"
		.Debug = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Picture = StatusBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 0
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.Format = "1,2,3,4,(5/6/7/8)"
		.Debug = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Picture = StatusBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.Format = "1,2,3,4,(5/6/7/8)"
		.Debug = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.ForeColor = RGB(120,120,120)
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.Format = "1,2,3,4,(5/6/7/8)"
		.Debug = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.BackColor = RGB(200,200,200)
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.Format = "1,2,3,4,(5/6/7/8)"
		.Debug = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Appearance = 16777216 ' &H1000000
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.Format = "1,2,3,4,(5/6/7/8)"
		.Debug = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2:
How do I remove the control's border

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.Appearance = 0
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		.Format = "1,2,3,4,(5/6/7/8)"
		.Debug = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1:
How can I change the control's font

<BODY onload="Init()">
<OBJECT CLASSID="clsid:0885027A-DF96-481F-928C-E3E3788889BA" id="StatusBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With StatusBar1
		.BeginUpdate 
		.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
		.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
		.BackColorPanels = &H5000000
		Set f = CreateObject("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
End Function
</SCRIPT>
</BODY>