diff --git a/AvaloniaVisualBasic/App.axaml b/AvaloniaVisualBasic/App.axaml
index 8659b02..3cf851d 100644
--- a/AvaloniaVisualBasic/App.axaml
+++ b/AvaloniaVisualBasic/App.axaml
@@ -1,12 +1,16 @@
 <Application xmlns="https://github.com/avaloniaui"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-             xmlns:avaloniaVisualBasic="clr-namespace:AvaloniaVisualBasic"
+             xmlns:vb="clr-namespace:AvaloniaVisualBasic"
              xmlns:common="clr-namespace:Classic.CommonControls;assembly=Classic.CommonControls.Avalonia"
              x:Class="AvaloniaVisualBasic.App"
              RequestedThemeVariant="{x:Static ClassicTheme.Standard}">
 
     <Application.Resources>
         <ResourceDictionary>
+            <!--Creates a shared resource of type Composition and with key "Composition",
+            which will be further used as a data context in the views.-->
+            <vb:Composition x:Key="Composition"  />
+
             <ResourceDictionary.MergedDictionaries>
                 <ResourceInclude Source="Controls/MDI/MDIWindow.axaml" />
                 <ResourceInclude Source="Controls/MDI/MDIHost.axaml" />
@@ -34,6 +38,6 @@
     </Application.Styles>
 
     <Application.DataTemplates>
-        <avaloniaVisualBasic:ViewLocator />
+        <vb:ViewLocator />
     </Application.DataTemplates>
 </Application>
\ No newline at end of file
diff --git a/AvaloniaVisualBasic/App.axaml.cs b/AvaloniaVisualBasic/App.axaml.cs
index a538423..0692db9 100644
--- a/AvaloniaVisualBasic/App.axaml.cs
+++ b/AvaloniaVisualBasic/App.axaml.cs
@@ -1,5 +1,6 @@
 using System;
 using System.Collections.Generic;
+using System.ComponentModel;
 using System.Globalization;
 using System.Threading.Tasks;
 using Avalonia;
@@ -12,6 +13,7 @@
 using AvaloniaVisualBasic.VisualDesigner;
 using Classic.Avalonia.Theme;
 using Classic.CommonControls.Dialogs;
+using CommunityToolkit.Mvvm.ComponentModel;
 using R3;
 
 namespace AvaloniaVisualBasic;
@@ -27,9 +29,6 @@ public override void Initialize()
 
     public override void OnFrameworkInitializationCompleted()
     {
-        var rootViewModel = new DISetup().Root;
-        Static.RootViewModel = rootViewModel;
-
         if (ApplicationLifetime is IClassicDesktopStyleApplicationLifetime desktop)
         {
             // Line below is needed to remove Avalonia data validation.
@@ -39,19 +38,17 @@ public override void OnFrameworkInitializationCompleted()
             if (Static.ForceSingleView)
             {
                 Static.SingleView = true;
-                Static.MainView = new MainView
-                {
-                    DataContext = rootViewModel
-                };
-
-                desktop.MainWindow = new ClassicWindow()
+                Static.MainView = new MainView();
+                desktop.MainWindow = new ClassicWindow
                 {
                     Content = Static.MainView
                 };
 
-                rootViewModel.ObservePropertyChanged(x => x.Title)
-                    .Subscribe(title => desktop.MainWindow.Title = title);
-
+                if (desktop.MainWindow.DataContext is MainViewViewModel rootViewModel)
+                {
+                    rootViewModel.ObservePropertyChanged(x => x.Title)
+                        .Subscribe(title => desktop.MainWindow.Title = title);
+                }
 #if DEBUG
                 desktop.MainWindow.AttachDevTools();
 #endif
@@ -60,10 +57,7 @@ public override void OnFrameworkInitializationCompleted()
             }
             else
             {
-                var mainWindow = new MainWindow
-                {
-                    DataContext = rootViewModel
-                };
+                var mainWindow = new MainWindow();
                 desktop.MainWindow = mainWindow;
                 Static.SingleView = false;
                 Static.MainView = mainWindow.MainView;
@@ -72,10 +66,7 @@ public override void OnFrameworkInitializationCompleted()
         else if (ApplicationLifetime is ISingleViewApplicationLifetime singleViewPlatform)
         {
             Static.SingleView = true;
-            singleViewPlatform.MainView = Static.MainView = new MainView
-            {
-                DataContext = rootViewModel
-            };
+            singleViewPlatform.MainView = Static.MainView = new MainView();
             Static.MainView.WindowInitialized();
         }
 
diff --git a/AvaloniaVisualBasic/AvaloniaVisualBasic.csproj b/AvaloniaVisualBasic/AvaloniaVisualBasic.csproj
index 527804b..bdb4fc7 100644
--- a/AvaloniaVisualBasic/AvaloniaVisualBasic.csproj
+++ b/AvaloniaVisualBasic/AvaloniaVisualBasic.csproj
@@ -21,7 +21,7 @@
         <PackageReference Include="Classic.Avalonia.Theme.DataGrid" Version="$(ClassicAvaloniaVersion)"/>
         <PackageReference Condition="'$(Configuration)' == 'Debug'" Include="Avalonia.Diagnostics" Version="$(AvaloniaVersion)"/>
         <PackageReference Include="CommunityToolkit.Mvvm" Version="8.3.2" />
-        <PackageReference Include="Pure.DI" Version="2.1.37">
+        <PackageReference Include="Pure.DI" Version="2.1.70">
             <PrivateAssets>all</PrivateAssets>
             <IncludeAssets>runtime; build; native; contentfiles; analyzers</IncludeAssets>
         </PackageReference>
diff --git a/AvaloniaVisualBasic/Composition.cs b/AvaloniaVisualBasic/Composition.cs
new file mode 100644
index 0000000..6d94567
--- /dev/null
+++ b/AvaloniaVisualBasic/Composition.cs
@@ -0,0 +1,37 @@
+using Pure.DI;
+using System.Diagnostics;
+using AvaloniaVisualBasic.IDE;
+using AvaloniaVisualBasic.Projects;
+using AvaloniaVisualBasic.Tools;
+using AvaloniaVisualBasic.VisualDesigner;
+using static Pure.DI.Lifetime;
+using static Pure.DI.RootKinds;
+using MdiWindowManager = AvaloniaVisualBasic.IDE.MdiWindowManager;
+
+namespace AvaloniaVisualBasic;
+
+public partial class Composition
+{
+    [Conditional("DI")]
+    static void Setup() =>
+        DI.Setup()
+            .DefaultLifetime(Singleton)
+            .Bind().To<ToolBoxToolViewModel>()
+            .Bind().To<PropertiesToolViewModel>()
+            .Bind().To<ProjectToolViewModel>()
+            .Bind().To<FormLayoutToolViewModel>()
+            .Bind().To<ImmediateToolViewModel>()
+            .Bind().To<LocalsToolViewModel>()
+            .Bind().To<WatchesToolViewModel>()
+            .Bind().To<ColorPaletteToolViewModel>()
+            .Bind().To<MdiWindowManager>()
+            .Bind().To<WindowManager>()
+            .Bind().To<ProjectManager>()
+            .Bind().To<EditorService>()
+            .Bind().To<MainViewViewModel.DockFactory>()
+            .Bind().To<EventBus>()
+            .Bind().To<ProjectRunnerService>()
+            .Bind().To<ProjectService>()
+            .Bind().To<FocusedProjectUtil>()
+            .Root<MainViewViewModel>(nameof(Root), kind: Virtual);
+}
\ No newline at end of file
diff --git a/AvaloniaVisualBasic/Controls/Properties/PropertyBox.axaml b/AvaloniaVisualBasic/Controls/Properties/PropertyBox.axaml
index dc19e7d..b0df92d 100644
--- a/AvaloniaVisualBasic/Controls/Properties/PropertyBox.axaml
+++ b/AvaloniaVisualBasic/Controls/Properties/PropertyBox.axaml
@@ -4,10 +4,11 @@
                     xmlns:commonControls="clr-namespace:Classic.CommonControls;assembly=Classic.CommonControls.Avalonia"
                     xmlns:builtinTypes="clr-namespace:AvaloniaVisualBasic.Runtime.BuiltinTypes;assembly=AvaloniaVisualBasic.Runtime"
                     xmlns:converters="clr-namespace:AvaloniaVisualBasic.Converters"
+                    xmlns:avaloniaVisualBasic="clr-namespace:AvaloniaVisualBasic"
                     x:ClassModifier="internal">
     <Design.PreviewWith>
         <StackPanel Orientation="Vertical" Height="200" Width="300">
-            <controls:PropertyFontBox Font="" FontName="" />
+            <controls:PropertyFontBox Font="" FontName="" WindowManager="{Binding Source={StaticResource Composition}, DataType=avaloniaVisualBasic:Composition, Path=Root.WindowManager}" />
             <controls:PropertyEnumBox PropertyType="{x:Type builtinTypes:BorderStyles}" />
             <controls:PropertyColorBox
                 VerticalAlignment="Top"
@@ -43,7 +44,7 @@
         </Setter>
         <Setter Property="FontTemplate">
             <DataTemplate>
-                <controls:PropertyFontBox Font="{Binding $parent[controls:PropertyBox].Object, Mode=TwoWay}" />
+                <controls:PropertyFontBox Font="{Binding $parent[controls:PropertyBox].Object, Mode=TwoWay}" WindowManager="{Binding Source={StaticResource Composition}, DataType=avaloniaVisualBasic:Composition, Path=Root.WindowManager}" />
             </DataTemplate>
         </Setter>
         <Setter Property="StringListTemplate">
diff --git a/AvaloniaVisualBasic/Controls/Properties/PropertyFontBox.cs b/AvaloniaVisualBasic/Controls/Properties/PropertyFontBox.cs
index 7be0040..d70d3af 100644
--- a/AvaloniaVisualBasic/Controls/Properties/PropertyFontBox.cs
+++ b/AvaloniaVisualBasic/Controls/Properties/PropertyFontBox.cs
@@ -4,6 +4,7 @@
 using Avalonia.Controls.Primitives;
 using Avalonia.Data;
 using Avalonia.Interactivity;
+using AvaloniaVisualBasic.IDE;
 using AvaloniaVisualBasic.Runtime.BuiltinTypes;
 using AvaloniaVisualBasic.Utils;
 using Classic.CommonControls.Dialogs;
@@ -14,6 +15,7 @@ public class PropertyFontBox : TemplatedControl
 {
     public static readonly StyledProperty<VBFont> FontProperty = AvaloniaProperty.Register<PropertyFontBox, VBFont>("Font", defaultBindingMode: BindingMode.TwoWay, defaultValue: VBFont.Default);
     public static readonly DirectProperty<PropertyFontBox, string?> FontNameProperty = AvaloniaProperty.RegisterDirect<PropertyFontBox, string?>("FontName", o => o.FontName);
+    public static readonly StyledProperty<WindowManager> WindowManagerProperty = AvaloniaProperty.Register<PropertyFontBox, WindowManager>("WindowManager");
 
     public string? FontName
     {
@@ -26,6 +28,12 @@ public VBFont Font
         set => SetValue(FontProperty, value);
     }
 
+    public WindowManager WindowManager
+    {
+        get => GetValue(WindowManagerProperty);
+        set => SetValue(WindowManagerProperty, value);
+    }
+
     protected override void OnApplyTemplate(TemplateAppliedEventArgs e)
     {
         base.OnApplyTemplate(e);
@@ -37,7 +45,7 @@ private void OnButtonClick(object? sender, RoutedEventArgs e)
     {
         async Task OpenFontWindow()
         {
-            var result = await Static.RootViewModel.WindowManager.ShowFontDialog(new FontDialogResult(Font.FontFamily, Font.Style, Font.Weight, Font.Size));
+            var result = await WindowManager.ShowFontDialog(new FontDialogResult(Font.FontFamily, Font.Style, Font.Weight, Font.Size));
             if (result != null)
             {
                 SetCurrentValue(FontProperty, new VBFont(result.Family, (int)result.Size, result.Weight, result.Style));
diff --git a/AvaloniaVisualBasic/DISetup.cs b/AvaloniaVisualBasic/DISetup.cs
deleted file mode 100644
index 224390c..0000000
--- a/AvaloniaVisualBasic/DISetup.cs
+++ /dev/null
@@ -1,38 +0,0 @@
-using System;
-using Pure.DI;
-using System.Diagnostics;
-using AvaloniaVisualBasic.IDE;
-using AvaloniaVisualBasic.Projects;
-using AvaloniaVisualBasic.Tools;
-using AvaloniaVisualBasic.VisualDesigner;
-using static Pure.DI.Lifetime;
-using MdiWindowManager = AvaloniaVisualBasic.IDE.MdiWindowManager;
-
-namespace AvaloniaVisualBasic;
-
-public partial class DISetup
-{
-    [Conditional("DI")]
-    static void Setup() =>
-        DI.Setup()
-            .Bind().As(Singleton).To<ToolBoxToolViewModel>()
-            .Bind().As(Singleton).To<PropertiesToolViewModel>()
-            .Bind().As(Singleton).To<ProjectToolViewModel>()
-            .Bind().As(Singleton).To<FormLayoutToolViewModel>()
-            .Bind().As(Singleton).To<ImmediateToolViewModel>()
-            .Bind().As(Singleton).To<LocalsToolViewModel>()
-            .Bind().As(Singleton).To<WatchesToolViewModel>()
-            .Bind().As(Singleton).To<ColorPaletteToolViewModel>()
-            .Bind().As(Singleton).To<MdiWindowManager>()
-            .Bind().As(Singleton).To<WindowManager>()
-            .Bind().As(Singleton).To<ProjectManager>()
-            .Bind().As(Singleton).To<EditorService>()
-            .Bind().As(Singleton).To<MainViewViewModel.DockFactory>()
-            .Bind().As(Singleton).To<EventBus>()
-            .Bind().As(Singleton).To<ProjectRunnerService>()
-            .Bind().As(Singleton).To<ProjectService>()
-            .Bind().As(Singleton).To<FocusedProjectUtil>()
-            .Root<MainViewViewModel>("Root");
-
-    public static MainViewViewModel DesignTimeRootViewModel => new DISetup().Root;
-}
\ No newline at end of file
diff --git a/AvaloniaVisualBasic/DesignTimeComposition.cs b/AvaloniaVisualBasic/DesignTimeComposition.cs
new file mode 100644
index 0000000..03958b1
--- /dev/null
+++ b/AvaloniaVisualBasic/DesignTimeComposition.cs
@@ -0,0 +1,10 @@
+using System;
+
+namespace AvaloniaVisualBasic;
+
+public class DesignTimeComposition: Composition
+{
+    private readonly Lazy<MainViewViewModel> designTimeRoot = new();
+
+    public override MainViewViewModel Root => designTimeRoot.Value;
+}
\ No newline at end of file
diff --git a/AvaloniaVisualBasic/MainView.axaml b/AvaloniaVisualBasic/MainView.axaml
index a6d8a83..888d095 100644
--- a/AvaloniaVisualBasic/MainView.axaml
+++ b/AvaloniaVisualBasic/MainView.axaml
@@ -10,54 +10,55 @@
              xmlns:ide="clr-namespace:AvaloniaVisualBasic.IDE"
              xmlns:projects="clr-namespace:AvaloniaVisualBasic.Projects"
              mc:Ignorable="d" d:DesignWidth="1080" d:DesignHeight="551"
-             x:DataType="vb:MainViewViewModel"
+             DataContext="{StaticResource Composition}"
+             Design.DataContext="{d:DesignInstance vb:Composition}"
+             x:DataType="vb:Composition"
              x:Name="RootView"
-             Design.DataContext="{x:Static vb:DISetup.DesignTimeRootViewModel}"
              x:Class="AvaloniaVisualBasic.MainView">
     <input:CommandManager.CommandBindings>
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.NYICommand}"
-                              ExecutingCommand="{CompiledBinding NYI}" />
+                              ExecutingCommand="{CompiledBinding Root.NYI}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.NewProjectCommand}"
-                              ExecutingCommand="{CompiledBinding NewProject}"/>
+                              ExecutingCommand="{CompiledBinding Root.NewProject}"/>
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.AddProjectCommand}"
-                              ExecutingCommand="{CompiledBinding AddProject}"/>
+                              ExecutingCommand="{CompiledBinding Root.AddProject}"/>
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.AvaloniaOnWebCommand}"
                               Executed="AvaloniaOnWeb"/>
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.AboutCommand}"
-                              ExecutingCommand="{CompiledBinding About}" />
+                              ExecutingCommand="{CompiledBinding Root.About}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.AddInManagerCommand}"
-                              ExecutingCommand="{CompiledBinding OpenAddInManager}" />
+                              ExecutingCommand="{CompiledBinding Root.OpenAddInManager}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.OpenOptionsCommand}"
-                              ExecutingCommand="{CompiledBinding OpenOptions}" />
+                              ExecutingCommand="{CompiledBinding Root.OpenOptions}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.OpenProjectExplorerCommand}"
-                              ExecutingCommand="{CompiledBinding OpenProjectExplorerTool}" />
+                              ExecutingCommand="{CompiledBinding Root.OpenProjectExplorerTool}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.OpenPropertiesCommand}"
-                              ExecutingCommand="{CompiledBinding OpenPropertiesTool}" />
+                              ExecutingCommand="{CompiledBinding Root.OpenPropertiesTool}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.OpenFormLayoutCommand}"
-                              ExecutingCommand="{CompiledBinding OpenFormLayoutTool}" />
+                              ExecutingCommand="{CompiledBinding Root.OpenFormLayoutTool}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.OpenObjectBrowserCommand}"
                               ExecutingCommand="{x:Static vb:ApplicationCommands.DisabledCommand}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.OpenToolBoxCommand}"
-                              ExecutingCommand="{CompiledBinding OpenToolBox}" />
+                              ExecutingCommand="{CompiledBinding Root.OpenToolBox}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.OpenImmediateCommand}"
-                              ExecutingCommand="{CompiledBinding OpenImmediateTool}" />
+                              ExecutingCommand="{CompiledBinding Root.OpenImmediateTool}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.OpenLocalsCommand}"
-                              ExecutingCommand="{CompiledBinding OpenLocalsTool}" />
+                              ExecutingCommand="{CompiledBinding Root.OpenLocalsTool}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.OpenWatchesCommand}"
-                              ExecutingCommand="{CompiledBinding OpenWatchesTool}" />
+                              ExecutingCommand="{CompiledBinding Root.OpenWatchesTool}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.OpenColorPaletteCommand}"
-                              ExecutingCommand="{CompiledBinding OpenColorPaletteTool}" />
+                              ExecutingCommand="{CompiledBinding Root.OpenColorPaletteTool}" />
 
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.StartDefaultProjectCommand}"
-                              ExecutingCommand="{CompiledBinding StartDefaultProjectCommand}" />
+                              ExecutingCommand="{CompiledBinding Root.StartDefaultProjectCommand}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.StartDefaultProjectWithFullCompileCommand}"
-                              ExecutingCommand="{CompiledBinding StartDefaultProjectWithFullCompileCommand}" />
+                              ExecutingCommand="{CompiledBinding Root.StartDefaultProjectWithFullCompileCommand}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.BreakProjectCommand}"
-                              ExecutingCommand="{CompiledBinding BreakProjectCommand}" />
+                              ExecutingCommand="{CompiledBinding Root.BreakProjectCommand}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.EndProjectCommand}"
-                              ExecutingCommand="{CompiledBinding EndProjectCommand}" />
+                              ExecutingCommand="{CompiledBinding Root.EndProjectCommand}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.RestartProjectCommand}"
-                              ExecutingCommand="{CompiledBinding RestartProjectCommand}" />
+                              ExecutingCommand="{CompiledBinding Root.RestartProjectCommand}" />
 
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.OpenDataViewCommand}"
                               ExecutingCommand="{x:Static vb:ApplicationCommands.DisabledCommand}" />
@@ -65,47 +66,47 @@
                               ExecutingCommand="{x:Static vb:ApplicationCommands.DisabledCommand}" />
 
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.SaveProjectCommand}"
-                              ExecutingCommand="{CompiledBinding SaveProject}" />
+                              ExecutingCommand="{CompiledBinding Root.SaveProject}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.SaveProjectAsCommand}"
-                              ExecutingCommand="{CompiledBinding SaveProjectAs}" />
+                              ExecutingCommand="{CompiledBinding Root.SaveProjectAs}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.OpenProjectCommand}"
-                              ExecutingCommand="{CompiledBinding OpenProject}" />
+                              ExecutingCommand="{CompiledBinding Root.OpenProject}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.MakeProjectCommand}"
-                              ExecutingCommand="{CompiledBinding MakeProjectCommand}" />
+                              ExecutingCommand="{CompiledBinding Root.MakeProjectCommand}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.RemoveProjectCommand}"
-                              ExecutingCommand="{CompiledBinding RemoveProjectCommand}" />
+                              ExecutingCommand="{CompiledBinding Root.RemoveProjectCommand}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.MakeProjectGroupCommand}"
                               ExecutingCommand="{x:Static vb:ApplicationCommands.DisabledCommand}" />
 
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.StepIntoCommand}"
-                              ExecutingCommand="{CompiledBinding StepInto}" />
+                              ExecutingCommand="{CompiledBinding Root.StepInto}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.StepOverCommand}"
-                              ExecutingCommand="{CompiledBinding StepOver}" />
+                              ExecutingCommand="{CompiledBinding Root.StepOver}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.StepOutCommand}"
-                              ExecutingCommand="{CompiledBinding StepOut}" />
+                              ExecutingCommand="{CompiledBinding Root.StepOut}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.RunToCursorCommand}"
-                              ExecutingCommand="{CompiledBinding RunToCursor}" />
+                              ExecutingCommand="{CompiledBinding Root.RunToCursor}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.AddWatchCommand}"
-                              ExecutingCommand="{CompiledBinding AddWatch}" />
+                              ExecutingCommand="{CompiledBinding Root.AddWatch}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.EditWatchCommand}"
-                              ExecutingCommand="{CompiledBinding EditWatch}" />
+                              ExecutingCommand="{CompiledBinding Root.EditWatch}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.QuickWatchCommand}"
-                              ExecutingCommand="{CompiledBinding QuickWatch}" />
+                              ExecutingCommand="{CompiledBinding Root.QuickWatch}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.ToggleBreakpointCommand}"
-                              ExecutingCommand="{CompiledBinding ToggleBreakpoint}" />
+                              ExecutingCommand="{CompiledBinding Root.ToggleBreakpoint}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.ClearAllBreakpointsCommand}"
-                              ExecutingCommand="{CompiledBinding ClearAllBreakpoints}" />
+                              ExecutingCommand="{CompiledBinding Root.ClearAllBreakpoints}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.SetNextStatementCommand}"
-                              ExecutingCommand="{CompiledBinding SetNextStatement}" />
+                              ExecutingCommand="{CompiledBinding Root.SetNextStatement}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.ShowNextStatementCommand}"
-                              ExecutingCommand="{CompiledBinding ShowNextStatement}" />
+                              ExecutingCommand="{CompiledBinding Root.ShowNextStatement}" />
 
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.ProjectReferencesCommand}"
-                              ExecutingCommand="{CompiledBinding ProjectReferencesCommand}" />
+                              ExecutingCommand="{CompiledBinding Root.ProjectReferencesCommand}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.ProjectComponentsCommand}"
-                              ExecutingCommand="{CompiledBinding ProjectComponentsCommand}" />
+                              ExecutingCommand="{CompiledBinding Root.ProjectComponentsCommand}" />
         <input:CommandBinding Command="{x:Static vb:ApplicationCommands.ProjectPropertiesCommand}"
-                              ExecutingCommand="{CompiledBinding ProjectPropertiesCommand}" />
+                              ExecutingCommand="{CompiledBinding Root.ProjectPropertiesCommand}" />
     </input:CommandManager.CommandBindings>
     <Panel HorizontalAlignment="Left" VerticalAlignment="Top">
         <DockPanel>
@@ -118,20 +119,20 @@
                             <MenuItem Header="_Open Project..." utils:MenuUtils.MenuIcon="Icons/open.gif" Command="{x:Static vb:ApplicationCommands.OpenProjectCommand}"/>
                             <Separator />
                             <MenuItem Header="A_dd Project..." Command="{x:Static vb:ApplicationCommands.AddProjectCommand}" />
-                            <MenuItem Header="{CompiledBinding FocusedProjectUtil.FocusedOrStartupProject.Name, StringFormat=_Remove {0}, FallbackValue=Remove Project}" Command="{x:Static vb:ApplicationCommands.RemoveProjectCommand}" />
+                            <MenuItem Header="{CompiledBinding Root.FocusedProjectUtil.FocusedOrStartupProject.Name, StringFormat=_Remove {0}, FallbackValue=Remove Project}" Command="{x:Static vb:ApplicationCommands.RemoveProjectCommand}" />
                             <Separator />
                             <MenuItem Header="Save Project" utils:MenuUtils.MenuIcon="Icons/save.gif" Command="{x:Static vb:ApplicationCommands.SaveProjectCommand}" />
                             <MenuItem Header="Save Project As..." Command="{x:Static vb:ApplicationCommands.SaveProjectAsCommand}" />
                             <Separator />
-                            <MenuItem Header="{CompiledBinding FocusedProjectUtil.FocusedForm.Name, StringFormat=Save {0}, FallbackValue=Save Form}" Command="{x:Static vb:ApplicationCommands.SaveCommand}" />
-                            <MenuItem Header="{CompiledBinding FocusedProjectUtil.FocusedForm.Name, StringFormat=Save {0} As..., FallbackValue=Save Form As...}" Command="{x:Static vb:ApplicationCommands.SaveAsCommand}" />
+                            <MenuItem Header="{CompiledBinding Root.FocusedProjectUtil.FocusedForm.Name, StringFormat=Save {0}, FallbackValue=Save Form}" Command="{x:Static vb:ApplicationCommands.SaveCommand}" />
+                            <MenuItem Header="{CompiledBinding Root.FocusedProjectUtil.FocusedForm.Name, StringFormat=Save {0} As..., FallbackValue=Save Form As...}" Command="{x:Static vb:ApplicationCommands.SaveAsCommand}" />
                             <MenuItem IsVisible="False" Header="Save Se_lection" />
                             <MenuItem IsVisible="False" Header="Save C_hange Script" />
                             <Separator />
                             <MenuItem Header="_Print..." utils:MenuUtils.MenuIcon="Icons/print.gif" Command="{x:Static vb:ApplicationCommands.NYICommand}" />
                             <MenuItem Header="Print Set_up..." utils:MenuUtils.MenuIcon="Icons/pagesetup.gif" Command="{x:Static vb:ApplicationCommands.NYICommand}" />
                             <Separator />
-                            <MenuItem Header="{CompiledBinding FocusedProjectUtil.FocusedOrStartupProject.Name, StringFormat={}Make {0}..., FallbackValue=Make Project}" Command="{x:Static vb:ApplicationCommands.MakeProjectCommand}"/>
+                            <MenuItem Header="{CompiledBinding Root.FocusedProjectUtil.FocusedOrStartupProject.Name, StringFormat={}Make {0}..., FallbackValue=Make Project}" Command="{x:Static vb:ApplicationCommands.MakeProjectCommand}"/>
                             <MenuItem Header="Make Project _Group..." Command="{x:Static vb:ApplicationCommands.MakeProjectGroupCommand}" />
                             <Separator />
                             <MenuItem Header="E_xit" />
@@ -190,7 +191,7 @@
                             <MenuItem Header="Color Pa_lette" Command="{x:Static vb:ApplicationCommands.OpenColorPaletteCommand}" />
                             <Separator />
                             <MenuItem Header="_Toolbars">
-                                <MenuItem Header="Standard" IsChecked="{CompiledBinding IsStandardToolbarVisible, Mode=TwoWay}" ToggleType="CheckBox" />
+                                <MenuItem Header="Standard" IsChecked="{CompiledBinding Root.IsStandardToolbarVisible, Mode=TwoWay}" ToggleType="CheckBox" />
                             </MenuItem>
                             <Separator />
                             <MenuItem Header="_Visual Compontent Manager" utils:MenuUtils.MenuIcon="Icons/visualcomponent.gif" Command="{x:Static vb:ApplicationCommands.OpenVisualComponentCommand}" />
@@ -206,12 +207,12 @@
                             <MenuItem Header="More ActiveX Desi_gners..." />
                             <MenuItem Header="_Add File..." />
                             <Separator />
-                            <MenuItem Header="{CompiledBinding FocusedProjectUtil.FocusedForm.Name, StringFormat={}_Remove {0}, FallbackValue=Remove}" />
+                            <MenuItem Header="{CompiledBinding Root.FocusedProjectUtil.FocusedForm.Name, StringFormat={}_Remove {0}, FallbackValue=Remove}" />
                             <Separator />
                             <MenuItem Header="Refere_nces..." utils:MenuUtils.MenuIcon="Icons/references.gif" Command="{x:Static vb:ApplicationCommands.ProjectReferencesCommand}" />
                             <MenuItem Header="C_omponents..." Command="{x:Static vb:ApplicationCommands.ProjectComponentsCommand}" />
                             <Separator />
-                            <MenuItem Header="{CompiledBinding FocusedProjectUtil.FocusedOrStartupProject.Name, StringFormat={}{0} Prop_erties..., FallbackValue=Properties...}"
+                            <MenuItem Header="{CompiledBinding Root.FocusedProjectUtil.FocusedOrStartupProject.Name, StringFormat={}{0} Prop_erties..., FallbackValue=Properties...}"
                                       Command="{x:Static vb:ApplicationCommands.ProjectPropertiesCommand}"
                                       />
                         </MenuItem>
@@ -287,12 +288,12 @@
                         <MenuItem Header="_Window">
                             <MenuItem Header="S_plit" IsEnabled="False" />
                             <Separator />
-                            <MenuItem Header="Tile _Horizontally" Command="{CompiledBinding TileHorizontally}" />
-                            <MenuItem Header="Tile _Vertically" Command="{CompiledBinding TileVertically}" />
-                            <MenuItem Header="_Cascade" Command="{CompiledBinding Cascade}" />
+                            <MenuItem Header="Tile _Horizontally" Command="{CompiledBinding Root.TileHorizontally}" />
+                            <MenuItem Header="Tile _Vertically" Command="{CompiledBinding Root.TileVertically}" />
+                            <MenuItem Header="_Cascade" Command="{CompiledBinding Root.Cascade}" />
                             <MenuItem Header="_Arrange Icons" />
                             <Separator />
-                            <MenuItem Header="_More Windows..." ItemsSource="{CompiledBinding MdiWindowManager.Windows}">
+                            <MenuItem Header="_More Windows..." ItemsSource="{CompiledBinding Root.MdiWindowManager.Windows}">
                                 <MenuItem.Styles>
                                     <Style Selector="MenuItem">
                                         <Setter Property="Header" Value="{CompiledBinding Title}" x:DataType="ide:IMdiWindow"/>
@@ -310,11 +311,11 @@
                             <Separator />
                             <MenuItem Header="_About Avalonia Visual Basic..." Command="{x:Static vb:ApplicationCommands.AboutCommand}" />
                         </MenuItem>
-                        <MenuItem Header="Go to github repo" Command="{CompiledBinding OpenGithubRepo}" IsVisible="{x:Static vb:Static.IsBrowser}" />
+                        <MenuItem Header="Go to github repo" Command="{CompiledBinding Root.OpenGithubRepo}" IsVisible="{x:Static vb:Static.IsBrowser}" />
                     </Menu>
                 </ClassicBorderDecorator>
                 <ClassicBorderDecorator BorderStyle="ThinRaised" BorderThickness="1" DockPanel.Dock="Top"
-                                        IsVisible="{CompiledBinding IsStandardToolbarVisible}"
+                                        IsVisible="{CompiledBinding Root.IsStandardToolbarVisible}"
                                         HorizontalAlignment="Left">
                     <commonControls:ToolBar Size="Small" TextPlacement="NoText" Margin="0,1">
                         <commonControls:RebarHandle Width="4" Margin="2,0,0,0" />
@@ -361,16 +362,16 @@
                         <commonControls:ToolBarButton SmallIcon="Icons/visualcomponent.gif" Command="{x:Static vb:ApplicationCommands.OpenVisualComponentCommand}" />
                         <Separator />
                         <Image Source="Icons/position.gif" Width="16" Height="16" />
-                        <TextBlock VerticalAlignment="Center" Text="{CompiledBinding FocusedProjectUtil.FocusedComponentPosition}" />
+                        <TextBlock VerticalAlignment="Center" Text="{CompiledBinding Root.FocusedProjectUtil.FocusedComponentPosition}" />
                         <Border Width="50" />
                         <Image Source="Icons/size.gif" Width="16" Height="16" />
-                        <TextBlock VerticalAlignment="Center" Text="{CompiledBinding FocusedProjectUtil.FocusedComponentSize}" />
+                        <TextBlock VerticalAlignment="Center" Text="{CompiledBinding Root.FocusedProjectUtil.FocusedComponentSize}" />
                         <Border Width="20" />
                     </commonControls:ToolBar>
                 </ClassicBorderDecorator>
             </StackPanel>
 
-            <DockControl x:Name="DockControl" Layout="{Binding Layout}">
+            <DockControl x:Name="DockControl" Layout="{Binding Root.Layout}">
                 <DockControl.Styles>
                     <Style Selector="DocumentTabStrip">
                         <Setter Property="IsVisible" Value="False" />
diff --git a/AvaloniaVisualBasic/MainView.axaml.cs b/AvaloniaVisualBasic/MainView.axaml.cs
index b4fe37f..90d6759 100644
--- a/AvaloniaVisualBasic/MainView.axaml.cs
+++ b/AvaloniaVisualBasic/MainView.axaml.cs
@@ -18,9 +18,9 @@ private void AvaloniaOnWeb(object? sender, ExecutedRoutedEventArgs e)
 
     public MainView WindowInitialized()
     {
-        if (DataContext is MainViewViewModel vm)
+        if (DataContext is Composition composition)
         {
-            vm.OnInitialized();
+            composition.Root.OnInitialized();
         }
         return this;
     }
diff --git a/AvaloniaVisualBasic/MainWindow.axaml b/AvaloniaVisualBasic/MainWindow.axaml
index ea2f922..0dc6b66 100644
--- a/AvaloniaVisualBasic/MainWindow.axaml
+++ b/AvaloniaVisualBasic/MainWindow.axaml
@@ -5,9 +5,11 @@
         xmlns:avaloniaVisualBasic="clr-namespace:AvaloniaVisualBasic"
         mc:Ignorable="d" d:DesignWidth="800" d:DesignHeight="450"
         x:Class="AvaloniaVisualBasic.MainWindow"
-        x:DataType="avaloniaVisualBasic:MainViewViewModel"
         Icon="/vb6icon.ico"
         ClosingBehavior="OwnerAndChildWindows"
-        Title="{CompiledBinding Title}">
+        DataContext="{StaticResource Composition}"
+        Design.DataContext="{d:DesignInstance avaloniaVisualBasic:Composition}"
+        x:DataType="avaloniaVisualBasic:Composition"
+        Title="{CompiledBinding Root.Title}">
     <avaloniaVisualBasic:MainView x:Name="MainView" />
 </ClassicWindow>
diff --git a/AvaloniaVisualBasic/Static.cs b/AvaloniaVisualBasic/Static.cs
index ec598f9..ff04cf1 100644
--- a/AvaloniaVisualBasic/Static.cs
+++ b/AvaloniaVisualBasic/Static.cs
@@ -15,6 +15,4 @@ public class Static
     public static bool SingleView { get; set; }
 
     public static MainView MainView { get; set; } = null!;
-
-    public static MainViewViewModel RootViewModel { get; set; } = null!;
 }
\ No newline at end of file