This example ensures that there are at least five visible rows in the grid.
Private Sub DataGrid1_RowResize (Cancel As Integer) If DataGrid1.VisibleRows < 5 Then Cancel = True End Sub