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