oreColor = vb3DHighlight
   Else
      picStatus.ForeColor = vbWindowText
   End If
   If (m_sStatus &lt;&gt; "") Then
      picStatus.CurrentX = 4 * Screen.TwipsPerPixelX
      picStatus.CurrentY = 2 * Screen.TwipsPerPixelY
      picStatus.Print m_sStatus
   End If
   picStatus.Refresh
End Function

''' &lt;summary&gt;
''' Set the maximum for the "progress bar" rendered in the status area.
''' &lt;/summary&gt;
''' &lt;param name="iMax"&gt;New maximum value&lt;/param&gt;
Public Property Let Max(ByVal iMax A