sub Application_OpenProjectComplete()
   MainWindow.MapWindow.Navigator.XAngle = 0
   MainWindow.MapWindow.Navigator.YMirror = false
   ExpandAllFalse()
end sub

'Свернуть все слои
sub ExpandAllFalse()
    dim aProjectView, aMapView, aLayerView, aStyleView
    set aProjectView = Application.ActiveProjectView

    dim aMapNode, aLayerNode, aStyleNode
    for each aMapView in aProjectView.MapViews
        aMapView.Expanded = False
        for each aLayerView in aMapView.LayerViews
            aLayerView.Expanded = False
        next
    next

end sub