Height property example

Sub Height_Example()
    Dim iHeight As Integer
    iHeight = ThisDrawing.Application.Height
    MsgBox ("Height (in pixels) is : " & iHeight)
End Sub