Use cCJCommandBarSystem.pkg Use cCmdBarFontSettings.pkg Class cCJStatusBarEx is a cCJStatusBar Import_Class_Protocol cCmdBarFontSettings Procedure Construct_Object Forward Send Construct_Object Send CreateFontProperties End_Procedure { Visibility=Private } Function CreateFontObject Returns Handle Handle hoFont Variant vFont Boolean bComObjectCreated Get IsComObjectCreated to bComObjectCreated If (bComObjectCreated) Begin Get Create (RefClass (cComStdFont)) to hoFont Get ComFont to vFont If (not (IsNullComObject (vFont))) Begin Set pvComObject of hoFont to vFont Function_Return hoFont End End Function_Return 0 End_Function Procedure OnCreate Send InitFontSettings End_Procedure End_Class