Private Sub FpSpread1_TopChange(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.TopChangeEventArgs) Handles FpSpread1.TopChange
Label1.Text = "The old top was " & e.OldTop & " and the new top is " & e.NewTop & " in viewport index " & e.RowViewportIndex
End Sub