Hello All,

I have solved this issue by adding the 'font' suffix to the assignment:

.OleStatBar.Font.Size = .pbNew.FontSize

I was also able to solve the other issue about the OLE Status Bar not 'growing' in width and filling the bottom of the form. My Resize method now appears as follows:

WITH THISFORM
   LOCAL lnFormWidth
   
   .Resizer1.Resize()
   
   .eSetGrid()
   
   ** panel widths: 
   lnFormWidth = .Width
   .OleStatBar.Panels(1).Width = (lnFormWidth * 8.0) / 100
   .OleStatBar.Panels(2).Width = (lnFormWidth * 10.8) / 100
   ** etc **

   .OleStatBar.Font.Size = .pbNew.FontSize

   ** resize status bar
   .OleStatBar.Width = .Width - 10
  
ENDWITH

There is no need to reply to this message. Thanks anyway.

Regards...Rex