Sub Example_StatusID()
    ' Этот пример показывает установку StatusID.

    Dim currStatusID As Boolean
    
    ' Показать установку потока statusID
    currStatusID = ThisDrawing.Application.statusID(ThisDrawing.ActiveViewport)
    MsgBox "The statusID of the active viewort is: " & currStatusID, , "StatusID Example"
    
End Sub