s Long)
   m_iMax = iMax
   DrawStatus
End Property

''' &lt;summary&gt;
''' Set the value for the "progress bar" rendered in the status area.
''' &lt;/summary&gt;
''' &lt;param name="iValue"&gt;New value&lt;/param&gt;
Public Property Let Value(ByVal iValue As Long)
   m_iValue = iValue
   DrawStatus
End Property

''' &lt;summary&gt;
''' Get the value for the "progress bar" rendered in the status area.
''' &lt;/summary&gt;
''' &lt;returns&gt;progress value&lt;/returns&gt;
Public Property Get Value() As Long