Top property example

The following example demonstrates how to set and return the value of the Top property.

Private Sub TopPropExample()

' This example demonstrates how to return the Top property, & change it to 2.

     Dim myTop As Integer

     myTop = Application.Top

     MsgBox ("Top is: " & myTop)

     Application.Top = 2

     MsgBox ("New top is: " & Application.Top)

End Sub