  Me.Refresh
   
   grdThis.Redraw = False
   
   initialiseGrid
   addData
   
   grdThis.Redraw = True
   
End Sub

''' &lt;summary&gt;
''' Resize the controls on the form
''' &lt;/summary&gt;
Private Sub Form_Resize()
Dim lSize As Long
Dim lHeight As Long

   On Error Resume Next

   lHeight = Me.ScaleHeight - picStatus.Height - 4 * Screen.TwipsPerPixelY
   lSize = fraOptions.Width + grdThis.left
   grdThis.Move 2 * Screen.TwipsPerPixelX, 2 * Screen.TwipsPerPixelY,
    Me.ScaleWidth - grdThis.left - lSiz