All pastes #108855 Raw Edit

Mine

public text v1 · immutable
#108855 ·published 2006-07-31 18:42 UTC
rendered paste body
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