Height property example

The following example demonstrates how to return the Height property.

Private Sub HeightPropExample()

     Dim myHeight As Double

     myHeight = Application.Height

     MsgBox ("Height is: " & myHeight)

End Sub