Private Sub Form_Resize()
  Const gap As Long = 120
  With Me.sevGrid1
      'Size grids
      .Top = gap
      .Left = gap
      .Width = ScaleWidth - 2 * gap
      .Height = ScaleHeight - 2 * gap
      .RefreshEx
   End With
End Sub

      ...
      .Height = ScaleHeight - 2 * gap
      [color=blue].ScreenRows = Int((.Height / Screen.TwipsPerPixelY - _
              .CaptionHeight - .ColumnHeaderHeight) / (.RowHeight + _
              .CellSpacingV)) [/color]'- 1
      .RefreshEx
      ...

Private Sub Form_Click()
  BuildGridInRecordSetMode
  With Me.sevGrid1
    If .Rows <> 0 Then
      .FilterAlign = FILTER_ALIGN_BOTTOM
      .FilterVisible = True
      .ScreenRows = Int((.Height / Screen.TwipsPerPixelY _
        - .CaptionHeight - .ColumnHeaderHeight) / (.RowHeight + .CellSpacingV)) _
        '- 1
      .RefreshEx
    End If
  End With
End Sub