
   Value = m_iValue
End Property

''' &lt;summary&gt;
''' Set the text to display in the status area.
''' &lt;/summary&gt;
''' &lt;param name="iValue"&gt;New value&lt;/param&gt;
Public Property Let Status(ByVal sText As String)
   m_sStatus = sText
   DrawStatus
End Property

''' &lt;summary&gt;
''' Set up the grid properties and add the columns
''' &lt;/summary&gt;
Private Sub initialiseGrid()
   With grdThis
   
      ' Set the grid image list.  This property can also be
      ' set to a Microsoft ImageL