Private Sub FpSpread1_RowViewportHeightChanged(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.RowViewportHeightChangedEventArgs)
Handles FpSpread1.RowViewportHeightChanged
If e.ViewportIndex = 0 Then
MessageBox.Show("The new height is " & e.ViewportHeight)
e.View.AddViewport(1, 1)
End If
End Sub