Private Sub Command1_Click()
    Dim intRows As Integer, I As Integer
    
    Grid.Rows = 8
    intRows = Grid.Rows
Do
    For I = 1 To intRows - 1
        Grid.RowHeight(intRows) = 800
    Next I
    
Loop While intRows > 8

End Sub