Application property example

Sub ApplicationProp_Example()
'The following example demonstrates how to return the Application property.
    Dim myObject As AcadApplication
    Set myObject = ThisDrawing.Application
    MsgBox ("Application is: " & myObject.Name)
End Sub