Is there a faster way to resize grid?

I need to resize a msflex grid. I am using DAO to fill the grid.
This code works but is slow when I have a lot of results.

Private Sub resizegrid()
Dim r As Long, c As Long
r = 1

Do Until r >= MSFlexGrid1.Rows 'loop thru rows
With MSFlexGrid1
.Row = r
For c = 0 To (.Cols - 1) 'move thru each cell in row
.Col = c

.RowHeight(r) = 600
Next c
End With
r = r + 1


Loop
End Sub



I could use a progress bar (if I knew how).

Any Suggestions welcome.

Try this:

VB Code:

Private Sub resizegrid()
   Dim r As Long, c As Long
   r = 1
 
   MSFlexGrid1.Redraw = False   'turn off redrawing
   Do Until r >= MSFlexGrid1.Rows 'loop thru rows
      With MSFlexGrid1
         .Row = r
         For c = 0 To (.Cols - 1) 'move thru each cell in row
            .Col = c
 
            .RowHeight(r) = 600
         Next c
      End With
      r = r + 1
   Loop
   MSFlexGrid1.Redraw = True  'redraw grid
End Sub

Thanks for the help!

Is there more code in your For Loop that you are not showing? It doesn't make sense to call RowHeight for every column. In fact there is no need to use a loop at all. If you specify -1 as the row index to RowHeight all rows will be adjusted.

The following method is instantaneous on a grid with 15000 rows and 10 cols - even on my PII 300mhz 128mb RAM.

VB Code:

With MSFlexGrid1
    .Redraw = False
    [B].RowHeight(-1) = 600[/B]     
    .RowHeight(0) = 300 '
    .Redraw = True
End With