property StatusBar.Panel (Index as Variant) as Panel
Retrieves the panel in the control giving its identifier.

TypeDescription
Index as Variant A Long expression that specifies the index of the panel being accessed.
Panel A Panel object being accessed
Use the Panel property to access a panel in your status bar control. Use the Format property to add and arrange the panels in the status bar. Use the Text property to specify the caption in the panel. Use the Debug property to display the identifiers of the panels in the status bar. Use the BackColorPanels property to specify the visual appearance of the borders around the panels. Use the PanelFromPoint property to get the panel from the cursor. 

The following VB sample shows how can I add two panels to the status bar control: 

With StatusBar1
	.BeginUpdate 
	.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
	.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
	.BackColorPanels = 83886080
	.Format = "1,2"
	.Panel(1).Text = "Panel 1"
	.Panel(2).Text = "Panel 2"
	.EndUpdate 
End With
The following VB sample shows how can I add three panels aligned from top to bottom: 
With StatusBar1
	.BeginUpdate 
	.BackColor = -2147483633
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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 = 83886080
	.Format = "1/2/3"
	.Panel(1).Text = "Panel 1"
	.Panel(2).Text = "Panel 2"
	.Panel(3).Text = "Panel 3"
	.EndUpdate 
End With

The following VB.NET sample shows how can I add two panels to the status bar control:

With AxStatusBar1
	.BeginUpdate 
	.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
	.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
	.GetOcx().BackColorPanels = &H5000000
	.Format = "1,2"
	.get_Panel(1).Text = "Panel 1"
	.get_Panel(2).Text = "Panel 2"
	.EndUpdate 
End With
The following VB.NET sample shows how can I add three panels aligned from top to bottom: 
With AxStatusBar1
	.BeginUpdate 
	.GetOcx().BackColor = &H8000000f
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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"
	.GetOcx().BackColorPanels = &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

The following C++ sample shows how can I add two panels to the status bar control:

/*
	Copy and paste the following directives to your header file as
	it defines the namespace 'EXSTATUSBARLib' for the library: 'ExStatusBar 1.0 Control Library'

	#import "D:\\Exontrol\\ExStatusBar\\project\\Debug\\ExStatusBar.dll"
	using namespace EXSTATUSBARLib;
*/
EXSTATUSBARLib::IStatusBarPtr spStatusBar1 = GetDlgItem(IDC_STATUSBAR1)->GetControlUnknown();
spStatusBar1->BeginUpdate();
spStatusBar1->GetVisualAppearance()->Add(4,"c:\\exontrol\\images\\border.ebn");
spStatusBar1->GetVisualAppearance()->Add(5,"CP:4 1 1 -1 -1");
spStatusBar1->PutBackColorPanels(83886080);
spStatusBar1->PutFormat(L"1,2");
spStatusBar1->GetPanel(long(1))->PutText(L"Panel 1");
spStatusBar1->GetPanel(long(2))->PutText(L"Panel 2");
spStatusBar1->EndUpdate();
The following C++ sample shows how can I add three panels aligned from top to bottom: 
/*
	Copy and paste the following directives to your header file as
	it defines the namespace 'EXSTATUSBARLib' for the library: 'ExStatusBar 1.0 Control Library'

	#import "D:\\Exontrol\\ExStatusBar\\project\\Debug\\ExStatusBar.dll"
	using namespace EXSTATUSBARLib;
*/
EXSTATUSBARLib::IStatusBarPtr spStatusBar1 = GetDlgItem(IDC_STATUSBAR1)->GetControlUnknown();
spStatusBar1->BeginUpdate();
spStatusBar1->PutBackColor(-2147483633);
spStatusBar1->Images(_bstr_t("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0") +
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" +
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" +
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
spStatusBar1->GetVisualAppearance()->Add(4,"c:\\exontrol\\images\\border.ebn");
spStatusBar1->GetVisualAppearance()->Add(5,"CP:4 1 1 -1 -1");
spStatusBar1->PutBackColorPanels(83886080);
spStatusBar1->PutFormat(L"1/2/3");
spStatusBar1->GetPanel(long(1))->PutText(L"Panel 1");
spStatusBar1->GetPanel(long(2))->PutText(L"Panel 2");
spStatusBar1->GetPanel(long(3))->PutText(L"Panel 3");
spStatusBar1->EndUpdate();

The following C# sample shows how can I add two panels to the status bar control:

axStatusBar1.BeginUpdate();
axStatusBar1.VisualAppearance.Add(4,"c:\\exontrol\\images\\border.ebn");
axStatusBar1.VisualAppearance.Add(5,"CP:4 1 1 -1 -1");
(axStatusBar1.GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels = 0x5000000;
axStatusBar1.Format = "1,2";
axStatusBar1.get_Panel(1).Text = "Panel 1";
axStatusBar1.get_Panel(2).Text = "Panel 2";
axStatusBar1.EndUpdate();
The following C# sample shows how can I add three panels aligned from top to bottom: 
axStatusBar1.BeginUpdate();
(axStatusBar1.GetOcx() as EXSTATUSBARLib.StatusBar).BackColor = 0x8000000f;
axStatusBar1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" +
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" +
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" +
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
axStatusBar1.VisualAppearance.Add(4,"c:\\exontrol\\images\\border.ebn");
axStatusBar1.VisualAppearance.Add(5,"CP:4 1 1 -1 -1");
(axStatusBar1.GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels = 0x5000000;
axStatusBar1.Format = "1/2/3";
axStatusBar1.get_Panel(1).Text = "Panel 1";
axStatusBar1.get_Panel(2).Text = "Panel 2";
axStatusBar1.get_Panel(3).Text = "Panel 3";
axStatusBar1.EndUpdate();

The following VFP sample shows how can I add two panels to the status bar control:

with thisform.StatusBar1
	.BeginUpdate
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels = 83886080
	.Format = "1,2"
	.Panel(1).Text = "Panel 1"
	.Panel(2).Text = "Panel 2"
	.EndUpdate
endwith
The following VFP sample shows how can I add three panels aligned from top to bottom: 
with thisform.StatusBar1
	.BeginUpdate
	.BackColor = -2147483633
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels = 83886080
	.Format = "1/2/3"
	.Panel(1).Text = "Panel 1"
	.Panel(2).Text = "Panel 2"
	.Panel(3).Text = "Panel 3"
	.EndUpdate
endwith