property StatusBar.Font as IFontDisp
Retrieves or sets the control's font.

TypeDescription
IFontDisp A Font object that specifies the font to display the panels.
Use the Font property to specify the font to display the panels. Use the <font> HTM tag to apply a different font for portion of text in the caption of the panel. Use the Text property to specify the caption of the panel. Use the ToolTipFont property to specify the the font to display the tooltip when the cursor hovers a panel. Use the ForeColor property to specify the control's foreground color. Use the Bold property to show the panel's caption in bold. Use the Italic property to show the panel's caption in italic. Use the Underline property to underline the panel's caption. Use the StrikeOut property to show the panel's caption in strikeout.

The following VB sample shows "How can I change the control's font":

With StatusBar1
	.BeginUpdate 
	.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
	.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
	.BackColorPanels = 83886080
	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
The following VB.NET sample shows "How can I change the control's font":
Dim f
With AxStatusBar1
	.BeginUpdate 
	.VisualAppearance.Add 4,"c:\exontrol\images\border.ebn"
	.VisualAppearance.Add 5,"CP:4 1 1 -1 -1"
	.GetOcx().BackColorPanels = &H5000000
	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
The following C++ sample shows "How can I change the control's font":
/*
	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);
/*
	Includes the definition for CreateObject function like follows:

	#include <comdef.h>
	IUnknownPtr CreateObject( BSTR Object )
	{
		IUnknownPtr spResult;
		spResult.CreateInstance( Object );
		return spResult;
	};

*/
/*
	Copy and paste the following directives to your header file as
	it defines the namespace 'stdole' for the library: 'OLE Automation'

	#import "C:\\WINNT\\System32\\stdole2.tlb"
*/
stdole::FontPtr f = ::CreateObject(L"StdFont");
	f->PutName(L"Verdana");
	f->PutSize(_variant_t(long(12)));
spStatusBar1->PutFont(IFontDispPtr(((stdole::FontPtr)(f))));
spStatusBar1->PutFormat(L"\"static text\"[fg=255][a=17],11,22,(33/44)");
spStatusBar1->EndUpdate();
The following C# sample shows "How can I change the control's font":
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;
stdole.IFontDisp f = new stdole.StdFont() as stdole.IFontDisp;
	f.Name = "Verdana";
	f.Size = 12;
axStatusBar1.Font = (f as stdole.IFontDisp);
axStatusBar1.Format = "\"static text\"[fg=255][a=17],11,22,(33/44)";
axStatusBar1.EndUpdate();
The following VFP sample shows "How can I change the control's font":
with thisform.StatusBar1
	.BeginUpdate
	.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
	.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
	.BackColorPanels = 83886080
	f = CreateObject("StdFont")
	with f
		.Name = "Verdana"
		.Size = 12
	endwith
	.Font = f
	.Format = ""+chr(34)+"static text"+chr(34)+"[fg=255][a=17],11,22,(33/44)"
	.EndUpdate
endwith