tion
   End If
End Sub

''' &lt;summary&gt;
''' Repopulate with data
''' &lt;/summary&gt;
Private Sub cmdRepopulate_Click()
   
   Dim lT As Long
   lT = timeGetTime()

   ' Add some data:
   addData
   
   m_sStatus = grdThis.Rows &amp; "rows, " &amp; timeGetTime() - lT &amp; "ms"
   DrawStatus
   
End Sub

''' &lt;summary&gt;
''' Initialise the status bar and load some demonstration data
''' into the grid.
''' &lt;/summary&gt;
Private Sub Form_Load()
   
   ThinBorder picStatus.hWnd, True
   
   Me.Show
 