diff --git a/Application.xaml.vb b/Application.xaml.vb
index 0c8babb..9a724d1 100644
--- a/Application.xaml.vb
+++ b/Application.xaml.vb
@@ -14,7 +14,6 @@ Class Application
       Dim MainWndViewModel As New MainWindowViewModel
       ' Assegno il ViewModel alla View
       MainWndView.DataContext = MainWndViewModel
-      Dim x = MainWndView.IsInitialized
       ' Mostro la View principale
       MainWndView.Show()
    End Sub
diff --git a/EgtCAM5.vbproj b/EgtCAM5.vbproj
index a8dc87a..58b1758 100644
--- a/EgtCAM5.vbproj
+++ b/EgtCAM5.vbproj
@@ -118,9 +118,6 @@
       <DependentUpon>AboutBoxView.xaml</DependentUpon>
     </Compile>
     <Compile Include="AttachedBehaviours\InputBindingsManager.vb" />
-    <Compile Include="Base\BaseWindow\BaseWindowView.xaml.vb">
-      <DependentUpon>BaseWindowView.xaml</DependentUpon>
-    </Compile>
     <Compile Include="Base\TabViewModel.vb" />
     <Compile Include="Base\TreeView\TreeViewItemBase.vb" />
     <Compile Include="Base\ViewModelBase.vb" />
@@ -129,6 +126,10 @@
     <Compile Include="Constants\ConstIni.vb" />
     <Compile Include="Constants\ConstMachIni.vb" />
     <Compile Include="Constants\ConstMsg.vb" />
+    <Compile Include="ProjectPage\DoorsPanel\DoorsPanelView.xaml.vb">
+      <DependentUpon>DoorsPanelView.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="ProjectPage\DoorsPanel\DoorsPanelViewModel.vb" />
     <Compile Include="EgtCAM5Params.vb" />
     <Compile Include="MachiningsDbPage\MachiningsDbView.xaml.vb">
       <DependentUpon>MachiningsDbView.xaml</DependentUpon>
@@ -141,11 +142,23 @@
       <DependentUpon>DrawPanelView.xaml</DependentUpon>
     </Compile>
     <Compile Include="ProjectPage\DrawPanel\DrawPanelViewModel.vb" />
-    <Compile Include="ProjectPage\GridViewPanel\GridViewPanelView.xaml.vb">
-      <DependentUpon>GridViewPanelView.xaml</DependentUpon>
+    <Compile Include="ProjectPage\ExecutePanel\ExecutePanelView.xaml.vb">
+      <DependentUpon>ExecutePanelView.xaml</DependentUpon>
     </Compile>
-    <Compile Include="ProjectPage\GridViewPanel\GridViewPanelViewModel.vb" />
+    <Compile Include="ProjectPage\ExecutePanel\ExecutePanelViewModel.vb" />
+    <Compile Include="ProjectPage\GridPanel\GridPanelView.xaml.vb">
+      <DependentUpon>GridPanelView.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="ProjectPage\GridPanel\GridPanelViewModel.vb" />
+    <Compile Include="ProjectPage\ViewPanel\ViewPanelView.xaml.vb">
+      <DependentUpon>ViewPanelView.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="ProjectPage\ViewPanel\ViewPanelViewModel.vb" />
     <Compile Include="IniFile.vb" />
+    <Compile Include="ProjectPage\InstrumentPanel\InstrumentPanelView.xaml.vb">
+      <DependentUpon>InstrumentPanelView.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="ProjectPage\InstrumentPanel\InstrumentPanelViewModel.vb" />
     <Compile Include="ProjectPage\OptionPanel\OptionPanelView.xaml.vb">
       <DependentUpon>OptionPanelView.xaml</DependentUpon>
     </Compile>
@@ -178,6 +191,10 @@
       <DependentUpon>ProjectView.xaml</DependentUpon>
     </Compile>
     <Compile Include="ProjectPage\ProjectViewModel.vb" />
+    <Compile Include="ProjectPage\ShowPanel\ShowPanelView.xaml.vb">
+      <DependentUpon>ShowPanelView.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="ProjectPage\ShowPanel\ShowPanelViewModel.vb" />
     <Compile Include="Special\Doors.vb" />
     <Compile Include="StatusBar\StatusBarView.xaml.vb">
       <DependentUpon>StatusBarView.xaml</DependentUpon>
@@ -200,9 +217,9 @@
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
     </Page>
-    <Page Include="Base\BaseWindow\BaseWindowView.xaml">
-      <Generator>MSBuild:Compile</Generator>
+    <Page Include="ProjectPage\DoorsPanel\DoorsPanelView.xaml">
       <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
     </Page>
     <Page Include="MachiningsDbPage\MachiningsDbView.xaml">
       <SubType>Designer</SubType>
@@ -228,7 +245,19 @@
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
     </Page>
-    <Page Include="ProjectPage\GridViewPanel\GridViewPanelView.xaml">
+    <Page Include="ProjectPage\ExecutePanel\ExecutePanelView.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
+    <Page Include="ProjectPage\GridPanel\GridPanelView.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
+    <Page Include="ProjectPage\ViewPanel\ViewPanelView.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
+    <Page Include="ProjectPage\InstrumentPanel\InstrumentPanelView.xaml">
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
     </Page>
@@ -264,6 +293,10 @@
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
     </Page>
+    <Page Include="ProjectPage\ShowPanel\ShowPanelView.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="StatusBar\StatusBarView.xaml">
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
@@ -324,6 +357,7 @@
       <LastGenOutput>Settings.Designer.vb</LastGenOutput>
     </None>
     <AppDesigner Include="My Project\" />
+    <Resource Include="Resources\Fonts\gothic.ttf" />
   </ItemGroup>
   <ItemGroup>
     <Folder Include="Internals\" />
diff --git a/EgtCAM5Resources.xaml b/EgtCAM5Resources.xaml
index a0d1eb3..074ba8f 100644
--- a/EgtCAM5Resources.xaml
+++ b/EgtCAM5Resources.xaml
@@ -32,25 +32,21 @@
    </DataTemplate>
 
    <!-- 
-  This template applies an GridViewPanelView to an instance 
-  of the GridViewPanelViewModel class shown in the ProjectPage.
-  -->
-   <ViewModel:GridViewPanelViewModel x:Key="GridViewPanelViewModel"/>
-
-   <!-- 
-  This template applies an DrawPanelView to an instance 
-  of the DrawPanelViewModel class shown in the ProjectPage.
-  -->
+   Assign a Key to every Panel ViewModel to use 
+   it in xaml file(ProjectView.xaml).
+   -->
+   <ViewModel:ViewPanelViewModel x:Key="ViewPanelViewModel"/>
    <ViewModel:DrawPanelViewModel x:Key="DrawPanelViewModel"/>
-
-   <!-- 
-  This template applies an DrawOptionPanelView to an instance 
-  of the DrawOptionPanelViewModel class shown in the ProjectPage.
-  -->
    <ViewModel:OptionPanelViewModel x:Key="OptionPanelViewModel"/>
+   <ViewModel:TopCommandBarViewModel x:Key="TopCommandBarViewModel"/>
+   <ViewModel:DoorsPanelViewModel x:Key="DoorsPanelViewModel"/>
+   <ViewModel:GridPanelViewModel x:Key="GridPanelViewModel"/>
+   <ViewModel:ShowPanelViewModel x:Key="ShowPanelViewModel"/>
+   <ViewModel:InstrumentPanelViewModel x:Key="InstrumentPanelViewModel"/>
+   <ViewModel:ExecutePanelViewModel x:Key="ExecutePanelViewModel"/>
 
    <!-- 
-  This template applies an StatusBarView to an instance 
+  This template applies a StatusBarView to an instance 
   of the StatusBarViewModel class shown in the main window.
   -->
    <DataTemplate DataType="{x:Type ViewModel:StatusBarViewModel}">
@@ -60,14 +56,117 @@
    <!-- Components -->
 
    <!--Colori predefiniti-->
-   <SolidColorBrush x:Key="EgaltechBlu1" Color="#FF4D84C4" />
-   <SolidColorBrush x:Key="EgaltechBlu2" Color="#FF7096CE" />
-   <SolidColorBrush x:Key="EgaltechBlu3" Color="#FF90ABD9" />
-   <SolidColorBrush x:Key="EgaltechBlu4" Color="#FFB2C3E4" />
+   <SolidColorBrush x:Key="EgaltechBlue1" Color="#FF4D84C4" />
+   <SolidColorBrush x:Key="EgaltechBlue2" Color="#FF7096CE" />
+   <SolidColorBrush x:Key="EgaltechBlue3" Color="#FF90ABD9" />
+   <SolidColorBrush x:Key="EgaltechBlue4" Color="#FFB2C3E4" />
    <SolidColorBrush x:Key="EgaltechWhite" Color="#FFFFFFFF" />
    <SolidColorBrush x:Key="EgaltechGray" Color="#FF58585B" />
    <SolidColorBrush x:Key="EgaltechLightGray" Color="LightGray" />
 
+   <!-- Button Style -->
+
+   <Style x:Key="FocusVisual">
+      <Setter Property="Control.Template">
+         <Setter.Value>
+            <ControlTemplate>
+               <Rectangle Margin="2" SnapsToDevicePixels="true" Stroke="{DynamicResource {x:Static SystemColors.ControlTextBrushKey}}" StrokeThickness="1" StrokeDashArray="1 2"/>
+            </ControlTemplate>
+         </Setter.Value>
+      </Setter>
+   </Style>
+   <SolidColorBrush x:Key="Button.Static.Background" Color="#FFDDDDDD"/>
+   <SolidColorBrush x:Key="Button.Static.Border" Color="#FF707070"/>
+   <SolidColorBrush x:Key="Button.MouseOver.Background" Color="#FFBEE6FD"/>
+   <SolidColorBrush x:Key="Button.MouseOver.Border" Color="#FF3C7FB1"/>
+   <SolidColorBrush x:Key="Button.Pressed.Background" Color="#FFC4E5F6"/>
+   <SolidColorBrush x:Key="Button.Pressed.Border" Color="#FF2C628B"/>
+   <SolidColorBrush x:Key="Button.Disabled.Background" Color="#FFF4F4F4"/>
+   <SolidColorBrush x:Key="Button.Disabled.Border" Color="#FFADB2B5"/>
+   <SolidColorBrush x:Key="Button.Disabled.Foreground" Color="#FF838383"/>
+   <Style TargetType="{x:Type Button}">
+      <Setter Property="FocusVisualStyle" Value="{StaticResource FocusVisual}"/>
+      <Setter Property="Background" Value="{StaticResource Button.Static.Background}"/>
+      <Setter Property="BorderBrush" Value="{StaticResource Button.Static.Border}"/>
+      <Setter Property="Foreground" Value="{DynamicResource {x:Static SystemColors.ControlTextBrushKey}}"/>
+      <Setter Property="BorderThickness" Value="0"/>
+      <Setter Property="HorizontalContentAlignment" Value="Center"/>
+      <Setter Property="VerticalContentAlignment" Value="Center"/>
+      <Setter Property="Padding" Value="1"/>
+      <Setter Property="Margin" Value="1"/>
+      <Setter Property="Template">
+         <Setter.Value>
+            <ControlTemplate TargetType="{x:Type Button}">
+               <Border x:Name="border" CornerRadius="3" BorderBrush="{TemplateBinding BorderBrush}" BorderThickness="{TemplateBinding BorderThickness}" Background="{TemplateBinding Background}" SnapsToDevicePixels="true">
+                  <ContentPresenter x:Name="contentPresenter" Focusable="False" HorizontalAlignment="{TemplateBinding HorizontalContentAlignment}" Margin="{TemplateBinding Padding}" RecognizesAccessKey="True" SnapsToDevicePixels="{TemplateBinding SnapsToDevicePixels}" VerticalAlignment="{TemplateBinding VerticalContentAlignment}"/>
+               </Border>
+               <ControlTemplate.Triggers>
+                  <Trigger Property="IsDefaulted" Value="true">
+                     <Setter Property="BorderBrush" TargetName="border" Value="{DynamicResource {x:Static SystemColors.HighlightBrushKey}}"/>
+                  </Trigger>
+                  <Trigger Property="IsMouseOver" Value="true">
+                     <Setter Property="Background" TargetName="border" Value="{StaticResource Button.MouseOver.Background}"/>
+                     <Setter Property="BorderBrush" TargetName="border" Value="{StaticResource Button.MouseOver.Border}"/>
+                  </Trigger>
+                  <Trigger Property="IsPressed" Value="true">
+                     <Setter Property="Background" TargetName="border" Value="{StaticResource Button.Pressed.Background}"/>
+                     <Setter Property="BorderBrush" TargetName="border" Value="{StaticResource Button.Pressed.Border}"/>
+                  </Trigger>
+                  <Trigger Property="IsEnabled" Value="false">
+                     <Setter Property="Background" TargetName="border" Value="{StaticResource Button.Disabled.Background}"/>
+                     <Setter Property="BorderBrush" TargetName="border" Value="{StaticResource Button.Disabled.Border}"/>
+                     <Setter Property="TextElement.Foreground" TargetName="contentPresenter" Value="{StaticResource Button.Disabled.Foreground}"/>
+                  </Trigger>
+               </ControlTemplate.Triggers>
+            </ControlTemplate>
+         </Setter.Value>
+      </Setter>
+   </Style>
+
+   <!-- ______________________________________________________________________________________________________________________________________________ -->
+
+   <!-- ToggleButton Style -->
+
+   <Style TargetType="{x:Type ToggleButton}">
+      <Setter Property="FocusVisualStyle" Value="{StaticResource FocusVisual}"/>
+      <Setter Property="Background" Value="{StaticResource Button.Static.Background}"/>
+      <Setter Property="BorderBrush" Value="{StaticResource Button.Static.Border}"/>
+      <Setter Property="Foreground" Value="{DynamicResource {x:Static SystemColors.ControlTextBrushKey}}"/>
+      <Setter Property="BorderThickness" Value="1"/>
+      <Setter Property="HorizontalContentAlignment" Value="Center"/>
+      <Setter Property="VerticalContentAlignment" Value="Center"/>
+      <Setter Property="Padding" Value="1"/>
+      <Setter Property="Template">
+         <Setter.Value>
+            <ControlTemplate TargetType="{x:Type ToggleButton}">
+               <Border x:Name="border" CornerRadius="3" BorderBrush="{TemplateBinding BorderBrush}" BorderThickness="{TemplateBinding BorderThickness}" Background="{TemplateBinding Background}" SnapsToDevicePixels="true">
+                  <ContentPresenter x:Name="contentPresenter" Focusable="False" HorizontalAlignment="{TemplateBinding HorizontalContentAlignment}" Margin="{TemplateBinding Padding}" RecognizesAccessKey="True" SnapsToDevicePixels="{TemplateBinding SnapsToDevicePixels}" VerticalAlignment="{TemplateBinding VerticalContentAlignment}"/>
+               </Border>
+               <ControlTemplate.Triggers>
+                  <Trigger Property="Button.IsDefaulted" Value="true">
+                     <Setter Property="BorderBrush" TargetName="border" Value="{DynamicResource {x:Static SystemColors.HighlightBrushKey}}"/>
+                  </Trigger>
+                  <Trigger Property="IsMouseOver" Value="true">
+                     <Setter Property="Background" TargetName="border" Value="{StaticResource Button.MouseOver.Background}"/>
+                     <Setter Property="BorderBrush" TargetName="border" Value="{StaticResource Button.MouseOver.Border}"/>
+                  </Trigger>
+                  <Trigger Property="IsPressed" Value="true">
+                     <Setter Property="Background" TargetName="border" Value="{StaticResource Button.Pressed.Background}"/>
+                     <Setter Property="BorderBrush" TargetName="border" Value="{StaticResource Button.Pressed.Border}"/>
+                  </Trigger>
+                  <Trigger Property="IsEnabled" Value="false">
+                     <Setter Property="Background" TargetName="border" Value="{StaticResource Button.Disabled.Background}"/>
+                     <Setter Property="BorderBrush" TargetName="border" Value="{StaticResource Button.Disabled.Border}"/>
+                     <Setter Property="TextElement.Foreground" TargetName="contentPresenter" Value="{StaticResource Button.Disabled.Foreground}"/>
+                  </Trigger>
+               </ControlTemplate.Triggers>
+            </ControlTemplate>
+         </Setter.Value>
+      </Setter>
+   </Style>
+
+   <!-- ______________________________________________________________________________________________________________________________________________ -->
+
    <Style x:Key="DrawPanelButton" TargetType="{x:Type Button}" BasedOn="{StaticResource {x:Type Button}}">
       <Setter Property="Height" Value="30"/>
       <Setter Property="Width" Value="30"/>
diff --git a/MainWindow/MainWindow.xaml b/MainWindow/MainWindow.xaml
index 4422e2e..3202d95 100644
--- a/MainWindow/MainWindow.xaml
+++ b/MainWindow/MainWindow.xaml
@@ -5,9 +5,14 @@
    xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
    xmlns:local="clr-namespace:EgtCAM5"
    xmlns:EgtCAM5="clr-namespace:EgtCAM5.EgtCAM5"
-   Title="{Binding Title}" Height="768" Width="1366" Icon="/Resources/EgtCAM5.ico"
-   AboutBox="{Binding AboutBox}" WindowStyle="None" ResizeMode="NoResize"
+   Title="{Binding Title}" Icon="/Resources/EgtCAM5.ico"
+   TitleBarBrush="{StaticResource EgaltechBlue1}"
+   BorderBrush="{StaticResource EgaltechBlue1}"
+   AboutBox="{Binding AboutBox}" WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="30"
    CloseCommand="{Binding CloseApplicationCommand,Mode=OneWay,UpdateSourceTrigger=PropertyChanged}">
+   <EgtWPFLib5:EgtCustomWindow.TitleUserControl>
+      <local:TopCommandBarView DataContext="{StaticResource TopCommandBarViewModel}"/>
+   </EgtWPFLib5:EgtCustomWindow.TitleUserControl>
 
    <interactivity:Interaction.Triggers>
       <interactivity:EventTrigger EventName="ContentRendered">
@@ -24,9 +29,6 @@
    <!--Pannello principale che permette di disporre la barra superiore e il tabcontrol-->
    <DockPanel>
 
-      <!--ContentPresenter that contains the TopCommandBar-->
-      <ContentPresenter DockPanel.Dock="Top" Content="{Binding TopCommandBar}"/>
-
       <!--StatusBar-->
       <ContentControl DockPanel.Dock="Bottom" Content="{Binding StatusBar}"/>
 
diff --git a/MainWindow/MainWindow.xaml.vb b/MainWindow/MainWindow.xaml.vb
index 63d35be..eaf275e 100644
--- a/MainWindow/MainWindow.xaml.vb
+++ b/MainWindow/MainWindow.xaml.vb
@@ -3,4 +3,11 @@
 Class MainWindow
    Inherits EgtCustomWindow
 
+   Private Sub EgtCustomWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+      ' Posizione e dimensioni del Form
+      Dim WinPos As New WinPos
+      GetPrivateProfileWinPos(S_GENERAL, K_WINPLACE, WinPos.nFlag, WinPos.nLeft, WinPos.nTop, WinPos.nWidth, WinPos.nHeight)
+      WinPosToWindow(Me, WinPos)
+   End Sub
+
 End Class
diff --git a/MainWindow/MainWindowViewModel.vb b/MainWindow/MainWindowViewModel.vb
index d771965..9b87b86 100644
--- a/MainWindow/MainWindowViewModel.vb
+++ b/MainWindow/MainWindowViewModel.vb
@@ -397,10 +397,6 @@ Namespace EgtCAM5
          Dim sLuaBaseLib As String = String.Empty
          GetPrivateProfileString(S_LUA, K_BASELIB, "EgtBase", sLuaBaseLib)
          EgtLuaRequire(sLuaBaseLib)
-         ' Posizione e dimensioni del Form
-         Dim WinPos As New WinPos
-         GetPrivateProfileWinPos(S_GENERAL, K_WINPLACE, WinPos.nFlag, WinPos.nLeft, WinPos.nTop, WinPos.nWidth, WinPos.nHeight)
-         WinPosToWindow(Application.Current.MainWindow, WinPos)
          '' Impostazioni MruLists
          'm_MruFiles.Init(m_sIniFile, S_MRUFILES, 8)
          'm_MruScripts.Init(m_sIniFile, S_MRUSCRIPTS, 8)
diff --git a/ProjectPage/DoorsPanel/DoorsPanelView.xaml b/ProjectPage/DoorsPanel/DoorsPanelView.xaml
new file mode 100644
index 0000000..d89685c
--- /dev/null
+++ b/ProjectPage/DoorsPanel/DoorsPanelView.xaml
@@ -0,0 +1,11 @@
+<UserControl x:Class="DoorsPanelView"
+   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
+
+   <!--Barra superiore dei comandi-->
+   <StackPanel Orientation="Horizontal" Height="30">
+      <Button Content="DOORS" Command="{Binding DoorsCommand}"/>
+      <Button Content="DMACH" Command="{Binding DMachCommand}"/>
+   </StackPanel>
+
+</UserControl>
diff --git a/ProjectPage/DoorsPanel/DoorsPanelView.xaml.vb b/ProjectPage/DoorsPanel/DoorsPanelView.xaml.vb
new file mode 100644
index 0000000..ab0307b
--- /dev/null
+++ b/ProjectPage/DoorsPanel/DoorsPanelView.xaml.vb
@@ -0,0 +1,3 @@
+Public Class DoorsPanelView
+
+End Class
diff --git a/ProjectPage/DoorsPanel/DoorsPanelViewModel.vb b/ProjectPage/DoorsPanel/DoorsPanelViewModel.vb
new file mode 100644
index 0000000..b980b29
--- /dev/null
+++ b/ProjectPage/DoorsPanel/DoorsPanelViewModel.vb
@@ -0,0 +1,76 @@
+Namespace EgtCAM5
+
+   Public Class DoorsPanelViewModel
+      Inherits ViewModelBase
+
+      ' Definizione comandi
+      Private m_cmdDoors As ICommand
+      Private m_cmdDMach As ICommand
+
+#Region "COMMANDS"
+
+#Region "DoorsCommand"
+
+      ''' <summary>
+      ''' Returns a command that do Import.
+      ''' </summary>
+      Public ReadOnly Property DoorsCommand As ICommand
+         Get
+            If m_cmdDoors Is Nothing Then
+               m_cmdDoors = New RelayCommand(AddressOf Doors, AddressOf CanDoors)
+            End If
+            Return m_cmdDoors
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the Import.  This method is invoked by the ImportCommand.
+      ''' </summary>
+      Public Sub Doors(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.DOORSPROJECT)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanDoors(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' DoorsCommand
+
+#Region "DMachCommand"
+
+      ''' <summary>
+      ''' Returns a command that do Import.
+      ''' </summary>
+      Public ReadOnly Property DMachCommand As ICommand
+         Get
+            If m_cmdDMach Is Nothing Then
+               m_cmdDMach = New RelayCommand(AddressOf DMach, AddressOf CanDMach)
+            End If
+            Return m_cmdDMach
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the Dmach.  This method is invoked by the DMachCommand.
+      ''' </summary>
+      Public Sub DMach(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.DMACHPROJECT)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanDMach(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' DMachCommand
+
+#End Region
+
+   End Class
+
+End Namespace
\ No newline at end of file
diff --git a/ProjectPage/DrawPanel/DrawPanelView.xaml b/ProjectPage/DrawPanel/DrawPanelView.xaml
index f447e78..b4485b7 100644
--- a/ProjectPage/DrawPanel/DrawPanelView.xaml
+++ b/ProjectPage/DrawPanel/DrawPanelView.xaml
@@ -2,7 +2,7 @@
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
 
-   <Grid Background="DarkGray">
+   <Grid Background="Transparent">
       <Grid.RowDefinitions>
          <RowDefinition Height="Auto"/>
          <RowDefinition Height="Auto"/>
@@ -10,7 +10,7 @@
          <RowDefinition Height="Auto"/>
       </Grid.RowDefinitions>
       <Expander Header="2D Draw" Style="{StaticResource DrawPanelExpander}" Grid.Row="0" IsExpanded="{Binding Draw2DIsExpanded}">
-         <UniformGrid Columns="2">
+         <UniformGrid Columns="3">
             <Button ToolTip="{Binding PointToolTip}" Style="{StaticResource DrawPanelButton}" Command="{Binding PointCommand}">
                <Image Source="/Resources/DrawPanel/Point.png" Stretch="Uniform"/>
             </Button>
@@ -56,7 +56,7 @@
          </UniformGrid>
       </Expander>
       <Expander Header="3D Draw" Style="{StaticResource DrawPanelExpander}" Grid.Row="1" IsExpanded="{Binding Draw3DIsExpanded}">
-         <UniformGrid Columns="2">
+         <UniformGrid Columns="3">
             <Button ToolTip="{Binding PlaneToolTip}" Style="{StaticResource DrawPanelButton}" Command="{Binding PlaneCommand}">
                <Image Source="/Resources/DrawPanel/Plane.png" Stretch="Uniform"/>
             </Button>
@@ -85,7 +85,7 @@
          </UniformGrid>
       </Expander>
       <Expander Header="Modify" Style="{StaticResource DrawPanelExpander}" Grid.Row="2" IsExpanded="{Binding ModifyIsExpanded}">
-         <UniformGrid Columns="2">
+         <UniformGrid Columns="3">
             <Button ToolTip="{Binding DeleteToolTip}" Style="{StaticResource DrawPanelButton}" Command="{Binding DeleteCommand}">
                <Image Source="/Resources/DrawPanel/Delete.png" Stretch="Uniform"/>
             </Button>
@@ -129,7 +129,7 @@
          </UniformGrid>
       </Expander>
       <Expander Header="Transform" Style="{StaticResource DrawPanelExpander}" Grid.Row="3" IsExpanded="{Binding TransformIsExpanded}">
-         <UniformGrid Columns="2">
+         <UniformGrid Columns="3">
             <Button ToolTip="{Binding MoveToolTip}" Style="{StaticResource DrawPanelButton}" Command="{Binding MoveCommand}">
                <Image Source="/Resources/DrawPanel/Move.png" Stretch="Uniform"/>
             </Button>
diff --git a/ProjectPage/ExecutePanel/ExecutePanelView.xaml b/ProjectPage/ExecutePanel/ExecutePanelView.xaml
new file mode 100644
index 0000000..04fa440
--- /dev/null
+++ b/ProjectPage/ExecutePanel/ExecutePanelView.xaml
@@ -0,0 +1,11 @@
+<UserControl x:Class="ExecutePanelView"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
+
+   <StackPanel Orientation="Horizontal" Height="30">
+      <Button Command="{Binding ExecCommand}"  ToolTip="{Binding ExecToolTip}">
+         <Image Source="/Resources/TopCommandBar/Exec.png" Stretch="Uniform"/>
+      </Button>
+   </StackPanel>
+
+</UserControl>
diff --git a/ProjectPage/ExecutePanel/ExecutePanelView.xaml.vb b/ProjectPage/ExecutePanel/ExecutePanelView.xaml.vb
new file mode 100644
index 0000000..b137b4c
--- /dev/null
+++ b/ProjectPage/ExecutePanel/ExecutePanelView.xaml.vb
@@ -0,0 +1,3 @@
+Public Class ExecutePanelView
+
+End Class
diff --git a/ProjectPage/ExecutePanel/ExecutePanelViewModel.vb b/ProjectPage/ExecutePanel/ExecutePanelViewModel.vb
new file mode 100644
index 0000000..fdd8424
--- /dev/null
+++ b/ProjectPage/ExecutePanel/ExecutePanelViewModel.vb
@@ -0,0 +1,61 @@
+Imports EgtUILib
+
+Namespace EgtCAM5
+
+   Public Class ExecutePanelViewModel
+      Inherits ViewModelBase
+
+#Region "FIELDS & PROPERTIES"
+
+      ' Definizione comandi
+      Private m_cmdExec As ICommand
+
+#Region "ToolTip"
+
+      Public ReadOnly Property ExecToolTip As String
+         Get
+            Return EgtMsg(MSG_TOPCOMMANDBAR + 8)
+         End Get
+      End Property
+
+#End Region    ' ToolTip
+
+#End Region    ' FIELDS & PROPERTIES
+
+#Region "COMMANDS"
+
+#Region "ExecCommand"
+
+      ''' <summary>
+      ''' Returns a command that do Exec.
+      ''' </summary>
+      Public ReadOnly Property ExecCommand As ICommand
+         Get
+            If m_cmdExec Is Nothing Then
+               m_cmdExec = New RelayCommand(AddressOf Exec, AddressOf CanExec)
+            End If
+            Return m_cmdExec
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the Exec.  This method is invoked by the ExecCommand.
+      ''' </summary>
+      Public Sub Exec(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.EXECPROJECT)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanExec(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' ExecCommand
+
+#End Region    ' COMMANDS
+
+   End Class
+
+End Namespace
\ No newline at end of file
diff --git a/ProjectPage/GridPanel/GridPanelView.xaml b/ProjectPage/GridPanel/GridPanelView.xaml
new file mode 100644
index 0000000..d3db45c
--- /dev/null
+++ b/ProjectPage/GridPanel/GridPanelView.xaml
@@ -0,0 +1,47 @@
+<UserControl x:Class="GridPanelView"
+   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
+
+   <StackPanel Background="Transparent" Orientation="Horizontal">
+      <Button ToolTip="{Binding CPlaneTopToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneTopCommand}">
+         <Image Source="/Resources/GridViewPanel/CplaneTOP.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding CPlaneFrontToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneFrontCommand}">
+         <Image Source="/Resources/GridViewPanel/CplaneFRONT.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding CPlaneRightToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneRightCommand}">
+         <Image Source="/Resources/GridViewPanel/CplaneRIGHT.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding CPlaneBackToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneBackCommand}">
+         <Image Source="/Resources/GridViewPanel/CplaneBACK.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding CPlaneLeftToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneLeftCommand}">
+         <Image Source="/Resources/GridViewPanel/CplaneLEFT.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding CPlaneBottomToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneBottomCommand}">
+         <Image Source="/Resources/GridViewPanel/CplaneBOTTOM.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding CPlaneViewToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneViewCommand}">
+         <Image Source="/Resources/GridViewPanel/CplaneView.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding CPlaneElevationToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneElevationCommand}">
+         <Image Source="/Resources/GridViewPanel/CplaneELEVATION.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding CPlaneOriginToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneOriginCommand}">
+         <Image Source="/Resources/GridViewPanel/CplaneORIGIN.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding CPlaneRotateToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneRotateCommand}">
+         <Image Source="/Resources/GridViewPanel/CplaneROTATE.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding CPlane3PointsToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlane3PCommand}">
+         <Image Source="/Resources/GridViewPanel/Cplane3POINTS.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding CPlanePerpCurveToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlanePerpObjCommand}">
+         <Image Source="/Resources/GridViewPanel/CplanePERPCURVE.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding CPlaneObjectToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneObjCommand}">
+         <Image Source="/Resources/GridViewPanel/CplaneOBJECT.png" Stretch="Uniform"/>
+      </Button>
+   </StackPanel>
+
+</UserControl>
diff --git a/ProjectPage/GridPanel/GridPanelView.xaml.vb b/ProjectPage/GridPanel/GridPanelView.xaml.vb
new file mode 100644
index 0000000..5fa9792
--- /dev/null
+++ b/ProjectPage/GridPanel/GridPanelView.xaml.vb
@@ -0,0 +1,3 @@
+Public Class GridPanelView
+
+End Class
diff --git a/ProjectPage/GridPanel/GridPanelViewModel.vb b/ProjectPage/GridPanel/GridPanelViewModel.vb
new file mode 100644
index 0000000..e35937a
--- /dev/null
+++ b/ProjectPage/GridPanel/GridPanelViewModel.vb
@@ -0,0 +1,493 @@
+Imports EgtUILib
+
+Namespace EgtCAM5
+
+   Public Class GridPanelViewModel
+      Inherits ViewModelBase
+
+#Region "FIELDS & PROPERTIES"
+
+      ' Definizione comandi
+      Private m_cmdCPlaneTop As ICommand
+      Private m_cmdCPlaneFront As ICommand
+      Private m_cmdCPlaneRight As ICommand
+      Private m_cmdCPlaneBack As ICommand
+      Private m_cmdCPlaneLeft As ICommand
+      Private m_cmdCPlaneBottom As ICommand
+      Private m_cmdCPlaneView As ICommand
+      Private m_cmdCPlaneElevation As ICommand
+      Private m_cmdCPlaneOrigin As ICommand
+      Private m_cmdCPlaneRotate As ICommand
+      Private m_cmdCPlane3P As ICommand
+      Private m_cmdCPlanePerpObj As ICommand
+      Private m_cmdCPlaneObj As ICommand
+
+#Region "ToolTip"
+
+      Public ReadOnly Property CPlaneTopToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 19)
+         End Get
+      End Property
+      Public ReadOnly Property CPlaneFrontToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 20)
+         End Get
+      End Property
+      Public ReadOnly Property CPlaneRightToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 21)
+         End Get
+      End Property
+      Public ReadOnly Property CPlaneBackToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 22)
+         End Get
+      End Property
+      Public ReadOnly Property CPlaneLeftToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 23)
+         End Get
+      End Property
+      Public ReadOnly Property CPlaneBottomToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 24)
+         End Get
+      End Property
+      Public ReadOnly Property CPlaneViewToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 25)
+         End Get
+      End Property
+      Public ReadOnly Property CPlaneElevationToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 26)
+         End Get
+      End Property
+      Public ReadOnly Property CPlaneOriginToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 27)
+         End Get
+      End Property
+      Public ReadOnly Property CPlaneRotateToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 28)
+         End Get
+      End Property
+      Public ReadOnly Property CPlane3PointsToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 29)
+         End Get
+      End Property
+      Public ReadOnly Property CPlanePerpCurveToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 30)
+         End Get
+      End Property
+      Public ReadOnly Property CPlaneObjectToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 31)
+         End Get
+      End Property
+
+#End Region    ' Tooltip
+
+#End Region
+
+#Region "COMMANDS"
+
+#Region "CPlaneTopCommand"
+
+      ''' <summary>
+      ''' Returns a command that do CPlaneTop.
+      ''' </summary>
+      Public ReadOnly Property CPlaneTopCommand As ICommand
+         Get
+            If m_cmdCPlaneTop Is Nothing Then
+               m_cmdCPlaneTop = New RelayCommand(AddressOf CPlaneTop, AddressOf CanCPlaneTop)
+            End If
+            Return m_cmdCPlaneTop
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the CPlaneTop.  This method is invoked by the CPlaneTopCommand.
+      ''' </summary>
+      Public Sub CPlaneTop(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.CPLANETOP)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanCPlaneTop(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' CPlaneTopCommand
+
+#Region "CPlaneFrontCommand"
+
+      ''' <summary>
+      ''' Returns a command that do CPlaneFront.
+      ''' </summary>
+      Public ReadOnly Property CPlaneFrontCommand As ICommand
+         Get
+            If m_cmdCPlaneFront Is Nothing Then
+               m_cmdCPlaneFront = New RelayCommand(AddressOf CPlaneFront, AddressOf CanCPlaneFront)
+            End If
+            Return m_cmdCPlaneFront
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the CPlaneFront.  This method is invoked by the CPlaneFrontCommand.
+      ''' </summary>
+      Public Sub CPlaneFront(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.CPLANEFRONT)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanCPlaneFront(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' CPlaneFrontCommand
+
+#Region "CPlaneRightCommand"
+
+      ''' <summary>
+      ''' Returns a command that do CPlaneRight.
+      ''' </summary>
+      Public ReadOnly Property CPlaneRightCommand As ICommand
+         Get
+            If m_cmdCPlaneRight Is Nothing Then
+               m_cmdCPlaneRight = New RelayCommand(AddressOf CPlaneRight, AddressOf CanCPlaneRight)
+            End If
+            Return m_cmdCPlaneRight
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the CPlaneRight.  This method is invoked by the CPlaneRightCommand.
+      ''' </summary>
+      Public Sub CPlaneRight(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.CPLANERIGHT)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanCPlaneRight(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' CPlaneRightCommand
+
+#Region "CPlaneBackCommand"
+
+      ''' <summary>
+      ''' Returns a command that do CPlaneBack.
+      ''' </summary>
+      Public ReadOnly Property CPlaneBackCommand As ICommand
+         Get
+            If m_cmdCPlaneBack Is Nothing Then
+               m_cmdCPlaneBack = New RelayCommand(AddressOf CPlaneBack, AddressOf CanCPlaneBack)
+            End If
+            Return m_cmdCPlaneBack
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the CPlaneBack.  This method is invoked by the CPlaneBackCommand.
+      ''' </summary>
+      Public Sub CPlaneBack(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.CPLANEBACK)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanCPlaneBack(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' CPlaneBackCommand
+
+#Region "CPlaneLeftCommand"
+
+      ''' <summary>
+      ''' Returns a command that do CPlaneLeft.
+      ''' </summary>
+      Public ReadOnly Property CPlaneLeftCommand As ICommand
+         Get
+            If m_cmdCPlaneLeft Is Nothing Then
+               m_cmdCPlaneLeft = New RelayCommand(AddressOf CPlaneLeft, AddressOf CanCPlaneLeft)
+            End If
+            Return m_cmdCPlaneLeft
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the CPlaneLeft.  This method is invoked by the CPlaneLeftCommand.
+      ''' </summary>
+      Public Sub CPlaneLeft(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.CPLANELEFT)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanCPlaneLeft(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' CPlaneLeftCommand
+
+#Region "CPlaneBottomCommand"
+
+      ''' <summary>
+      ''' Returns a command that do CPlaneBottom.
+      ''' </summary>
+      Public ReadOnly Property CPlaneBottomCommand As ICommand
+         Get
+            If m_cmdCPlaneBottom Is Nothing Then
+               m_cmdCPlaneBottom = New RelayCommand(AddressOf CPlaneBottom, AddressOf CanCPlaneBottom)
+            End If
+            Return m_cmdCPlaneBottom
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the CPlaneBottom.  This method is invoked by the CPlaneBottomCommand.
+      ''' </summary>
+      Public Sub CPlaneBottom(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.CPLANEBOTTOM)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanCPlaneBottom(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' CPlaneBottomCommand
+
+#Region "CPlaneViewCommand"
+
+      ''' <summary>
+      ''' Returns a command that do CPlaneView.
+      ''' </summary>
+      Public ReadOnly Property CPlaneViewCommand As ICommand
+         Get
+            If m_cmdCPlaneView Is Nothing Then
+               m_cmdCPlaneView = New RelayCommand(AddressOf CPlaneView, AddressOf CanCPlaneView)
+            End If
+            Return m_cmdCPlaneView
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the CPlaneView.  This method is invoked by the CPlaneViewCommand.
+      ''' </summary>
+      Public Sub CPlaneView(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.CPLANEVIEW)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanCPlaneView(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' CPlaneViewCommand
+
+#Region "CPlaneElevationCommand"
+
+      ''' <summary>
+      ''' Returns a command that do CPlaneElevation.
+      ''' </summary>
+      Public ReadOnly Property CPlaneElevationCommand As ICommand
+         Get
+            If m_cmdCPlaneElevation Is Nothing Then
+               m_cmdCPlaneElevation = New RelayCommand(AddressOf CPlaneElevation, AddressOf CanCPlaneElevation)
+            End If
+            Return m_cmdCPlaneElevation
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the CPlaneElevation.  This method is invoked by the CPlaneElevationCommand.
+      ''' </summary>
+      Public Sub CPlaneElevation(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.CPLANEELEVATION)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanCPlaneElevation(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' CPlaneElevationCommand
+
+#Region "CPlaneOriginCommand"
+
+      ''' <summary>
+      ''' Returns a command that do CPlaneOrigin.
+      ''' </summary>
+      Public ReadOnly Property CPlaneOriginCommand As ICommand
+         Get
+            If m_cmdCPlaneOrigin Is Nothing Then
+               m_cmdCPlaneOrigin = New RelayCommand(AddressOf CPlaneOrigin, AddressOf CanCPlaneOrigin)
+            End If
+            Return m_cmdCPlaneOrigin
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the CPlaneOrigin.  This method is invoked by the CPlaneOriginCommand.
+      ''' </summary>
+      Public Sub CPlaneOrigin(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.CPLANEORIGIN)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanCPlaneOrigin(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' CPlaneOriginCommand
+
+#Region "CPlaneRotateCommand"
+
+      ''' <summary>
+      ''' Returns a command that do CPlaneRotate.
+      ''' </summary>
+      Public ReadOnly Property CPlaneRotateCommand As ICommand
+         Get
+            If m_cmdCPlaneRotate Is Nothing Then
+               m_cmdCPlaneRotate = New RelayCommand(AddressOf CPlaneRotate, AddressOf CanCPlaneRotate)
+            End If
+            Return m_cmdCPlaneRotate
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the CPlaneRotate.  This method is invoked by the CPlaneRotateCommand.
+      ''' </summary>
+      Public Sub CPlaneRotate(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.CPLANEROTATE)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanCPlaneRotate(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' CPlaneRotateCommand
+
+#Region "CPlane3PCommand"
+
+      ''' <summary>
+      ''' Returns a command that do CPlane3P.
+      ''' </summary>
+      Public ReadOnly Property CPlane3PCommand As ICommand
+         Get
+            If m_cmdCPlane3P Is Nothing Then
+               m_cmdCPlane3P = New RelayCommand(AddressOf CPlane3P, AddressOf CanCPlane3P)
+            End If
+            Return m_cmdCPlane3P
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the CPlane3P.  This method is invoked by the CPlane3PCommand.
+      ''' </summary>
+      Public Sub CPlane3P(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.CPLANE3P)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanCPlane3P(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' CPlane3PCommand
+
+#Region "CPlanePerpObjCommand"
+
+      ''' <summary>
+      ''' Returns a command that do CPlanePerpObj.
+      ''' </summary>
+      Public ReadOnly Property CPlanePerpObjCommand As ICommand
+         Get
+            If m_cmdCPlanePerpObj Is Nothing Then
+               m_cmdCPlanePerpObj = New RelayCommand(AddressOf CPlanePerpObj, AddressOf CanCPlanePerpObj)
+            End If
+            Return m_cmdCPlanePerpObj
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the CPlanePerpObj.  This method is invoked by the CPlanePerpObjCommand.
+      ''' </summary>
+      Public Sub CPlanePerpObj(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.CPLANEPERPOBJ)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanCPlanePerpObj(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' CPlanePerpObjCommand
+
+#Region "CPlaneObjCommand"
+
+      ''' <summary>
+      ''' Returns a command that do CPlanepObj.
+      ''' </summary>
+      Public ReadOnly Property CPlaneObjCommand As ICommand
+         Get
+            If m_cmdCPlaneObj Is Nothing Then
+               m_cmdCPlaneObj = New RelayCommand(AddressOf CPlaneObj, AddressOf CanCPlaneObj)
+            End If
+            Return m_cmdCPlaneObj
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the CPlaneObj.  This method is invoked by the CPlaneObjCommand.
+      ''' </summary>
+      Public Sub CPlaneObj(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.CPLANEOBJ)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanCPlaneObj(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' CPlaneObjCommand
+
+#End Region    ' COMMANDS
+
+   End Class
+
+End Namespace
\ No newline at end of file
diff --git a/ProjectPage/GridViewPanel/GridViewPanelView.xaml b/ProjectPage/GridViewPanel/GridViewPanelView.xaml
deleted file mode 100644
index 3b36ce9..0000000
--- a/ProjectPage/GridViewPanel/GridViewPanelView.xaml
+++ /dev/null
@@ -1,107 +0,0 @@
-<UserControl x:Class="GridViewPanelView"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
-
-   <StackPanel Background="Gray" Orientation="Horizontal">
-      <RadioButton ToolTip="{Binding RenderingWFToolTip}" Style="{StaticResource GridViewPanelRadioButton}" Command="{Binding WireframeCommand}">
-         <Image Source="/Resources/GridViewPanel/RenderingWF.png" Stretch="Uniform"/>
-      </RadioButton>
-      <RadioButton ToolTip="{Binding RenderingHLToolTip}" Style="{StaticResource GridViewPanelRadioButton}" Command="{Binding HiddenLineCommand}">
-         <Image Source="/Resources/GridViewPanel/RenderingHL.png" Stretch="Uniform"/>
-      </RadioButton>
-      <RadioButton ToolTip="{Binding RenderingSHToolTip}" Style="{StaticResource GridViewPanelRadioButton}" Command="{Binding ShadingCommand}">
-         <Image Source="/Resources/GridViewPanel/RenderingSH.png" Stretch="Uniform"/>
-      </RadioButton>
-      <Button ToolTip="{Binding ZoomAllToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding ZoomAllCommand}">
-         <Image Source="/Resources/GridViewPanel/ZoomAll.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding ZoomInToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding ZoomInCommand}">
-         <Image Source="/Resources/GridViewPanel/ZoomIn.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding ZoomOutToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding ZoomOutCommand}">
-         <Image Source="/Resources/GridViewPanel/ZoomOut.png" Stretch="Uniform"/>
-      </Button>
-      <Separator Style="{StaticResource {x:Static ToolBar.SeparatorStyleKey}}" Background="LightGray"/>
-      <Button ToolTip="{Binding LookFromTopToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding TopViewCommand}">
-         <Image Source="/Resources/GridViewPanel/LookFromTOP.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding LookFromFrontToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding FrontViewCommand}">
-         <Image Source="/Resources/GridViewPanel/LookFromFRONT.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding LookFromLeftToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding LeftViewCommand}">
-         <Image Source="/Resources/GridViewPanel/LookFromLEFT.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding LookFromBackToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding BackViewCommand}">
-         <Image Source="/Resources/GridViewPanel/LookFromBACK.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding LookFromRightToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding RightViewCommand}">
-         <Image Source="/Resources/GridViewPanel/LookFromRIGHT.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding LookFromIso_SWToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding IsoViewSWCommand}">
-         <Image Source="/Resources/GridViewPanel/LookFromISO_SW.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding LookFromIso_SEToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding IsoViewSECommand}">
-         <Image Source="/Resources/GridViewPanel/LookFromISO_SE.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding LookFromIso_NEToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding IsoViewNECommand}">
-         <Image Source="/Resources/GridViewPanel/LookFromISO_NE.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding LookFromIso_NWToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding IsoViewNWCommand}">
-         <Image Source="/Resources/GridViewPanel/LookFromISO_NW.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding ViewToCPlaneToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding ViewToCPlaneCommand}">
-         <Image Source="/Resources/GridViewPanel/CplaneView.png" Stretch="Uniform"/>
-      </Button>
-      <ToggleButton ToolTip="{Binding CurveDirToolTip}" Style="{StaticResource GridViewPanelToggleButton}" IsChecked="{Binding CurveDirIsChecked}">
-         <Image Source="/Resources/GridViewPanel/CurveDir.png" Stretch="Uniform"/>
-      </ToggleButton>
-      <ToggleButton ToolTip="{Binding AnalyzeToolTip}" Style="{StaticResource GridViewPanelToggleButton}" IsChecked="{Binding AnalyzeIsChecked}">
-         <Image Source="/Resources/GridViewPanel/Analyze.png" Stretch="Uniform"/>
-      </ToggleButton>
-      <ToggleButton ToolTip="{Binding GetDistToolTip}" Style="{StaticResource GridViewPanelToggleButton}" IsChecked="{Binding GetDistIsChecked}">
-         <Image Source="/Resources/GridViewPanel/GetDist.png" Stretch="Uniform"/>
-      </ToggleButton>
-      <Separator Style="{StaticResource {x:Static ToolBar.SeparatorStyleKey}}" Background="LightGray"/>
-      <Button ToolTip="{Binding CPlaneTopToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneTopCommand}">
-         <Image Source="/Resources/GridViewPanel/CplaneTOP.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding CPlaneFrontToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneFrontCommand}">
-         <Image Source="/Resources/GridViewPanel/CplaneFRONT.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding CPlaneRightToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneRightCommand}">
-         <Image Source="/Resources/GridViewPanel/CplaneRIGHT.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding CPlaneBackToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneBackCommand}">
-         <Image Source="/Resources/GridViewPanel/CplaneBACK.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding CPlaneLeftToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneLeftCommand}">
-         <Image Source="/Resources/GridViewPanel/CplaneLEFT.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding CPlaneBottomToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneBottomCommand}">
-         <Image Source="/Resources/GridViewPanel/CplaneBOTTOM.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding CPlaneViewToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneViewCommand}">
-         <Image Source="/Resources/GridViewPanel/CplaneView.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding CPlaneElevationToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneElevationCommand}">
-         <Image Source="/Resources/GridViewPanel/CplaneELEVATION.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding CPlaneOriginToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneOriginCommand}">
-         <Image Source="/Resources/GridViewPanel/CplaneORIGIN.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding CPlaneRotateToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneRotateCommand}">
-         <Image Source="/Resources/GridViewPanel/CplaneROTATE.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding CPlane3PointsToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlane3PCommand}">
-         <Image Source="/Resources/GridViewPanel/Cplane3POINTS.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding CPlanePerpCurveToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlanePerpObjCommand}">
-         <Image Source="/Resources/GridViewPanel/CplanePERPCURVE.png" Stretch="Uniform"/>
-      </Button>
-      <Button ToolTip="{Binding CPlaneObjectToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding CPlaneObjCommand}">
-         <Image Source="/Resources/GridViewPanel/CplaneOBJECT.png" Stretch="Uniform"/>
-      </Button>
-
-   </StackPanel>
-
-</UserControl>
diff --git a/ProjectPage/GridViewPanel/GridViewPanelViewModel.vb b/ProjectPage/GridViewPanel/GridViewPanelViewModel.vb
deleted file mode 100644
index e58d0c2..0000000
--- a/ProjectPage/GridViewPanel/GridViewPanelViewModel.vb
+++ /dev/null
@@ -1,1171 +0,0 @@
-Imports EgtUILib
-
-Namespace EgtCAM5
-
-   Public Class GridViewPanelViewModel
-      Inherits ViewModelBase
-
-      Private m_TitleBarOrientation As Orientation
-      Public Property TitleBarOrientation As Orientation
-         Get
-            Return m_TitleBarOrientation
-         End Get
-         Set(value As Orientation)
-            m_TitleBarOrientation = value
-         End Set
-      End Property
-
-      Private m_CurveDirIsChecked As Boolean
-      Public Property CurveDirIsChecked As Boolean
-         Get
-            Return m_CurveDirIsChecked
-         End Get
-         Set(value As Boolean)
-            If value <> m_CurveDirIsChecked Then
-               m_CurveDirIsChecked = value
-               EgtSetShowCurveDirection(value)
-               OnPropertyChanged("CurveDirIsChecked")
-            End If
-         End Set
-      End Property
-
-      Private m_AnalyzeIsChecked As Boolean
-      Public Property AnalyzeIsChecked As Boolean
-         Get
-            Return m_AnalyzeIsChecked
-         End Get
-         Set(value As Boolean)
-            If value <> m_AnalyzeIsChecked Then
-               m_AnalyzeIsChecked = value
-               GetDistIsChecked = False
-               If value Then
-                  Application.Msn.NotifyColleagues(Application.SETSTATUSANALYZE)
-               Else
-                  Application.Msn.NotifyColleagues(Application.RESETSTATUSANALYZE)
-               End If
-               OnPropertyChanged("GetDistIsChecked")
-               OnPropertyChanged("AnalyzeIsChecked")
-            End If
-         End Set
-      End Property
-
-      Private m_GetDistIsChecked As Boolean
-      Public Property GetDistIsChecked As Boolean
-         Get
-            Return m_GetDistIsChecked
-         End Get
-         Set(value As Boolean)
-            If value <> m_GetDistIsChecked Then
-               m_GetDistIsChecked = value
-               AnalyzeIsChecked = False
-               If value Then
-                  Application.Msn.NotifyColleagues(Application.SETSTATUSGETDISTANCE)
-               Else
-                  Application.Msn.NotifyColleagues(Application.RESETSTATUSGETDISTANCE)
-               End If
-               OnPropertyChanged("GetDistIsChecked")
-               OnPropertyChanged("AnalyzeIsChecked")
-            End If
-         End Set
-      End Property
-
-      'Proprietà ToolTip
-      Public ReadOnly Property RenderingWFToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 1)
-         End Get
-      End Property
-
-      'Proprietà ToolTip
-      Public ReadOnly Property RenderingHLToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 2)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property RenderingSHToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 3)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property ZoomAllToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 4)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property ZoomInToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 5)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property ZoomOutToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 6)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property LookFromTopToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 7)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property LookFromFrontToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 8)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property LookFromLeftToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 9)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property LookFromBackToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 10)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property LookFromRightToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 11)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property LookFromIso_SWToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 12)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property LookFromIso_SEToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 13)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property LookFromIso_NEToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 14)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property LookFromIso_NWToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 15)
-         End Get
-      End Property
-      Public ReadOnly Property ViewToCPlaneToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 32)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property CurveDirToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 16)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property AnalyzeToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 17)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property GetDistToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 18)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property CPlaneTopToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 19)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property CPlaneFrontToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 20)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property CPlaneRightToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 21)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property CPlaneBackToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 22)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property CPlaneLeftToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 23)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property CPlaneBottomToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 24)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property CPlaneViewToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 25)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property CPlaneElevationToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 26)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property CPlaneOriginToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 27)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property CPlaneRotateToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 28)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property CPlane3PointsToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 29)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property CPlanePerpCurveToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 30)
-         End Get
-      End Property
-      'Proprietà ToolTip
-      Public ReadOnly Property CPlaneObjectToolTip As String
-         Get
-            Return EgtMsg(MSG_GRIDVIEWPANEL + 31)
-         End Get
-      End Property
-
-      ' Definizione comandi
-      Private m_cmdWireframe As ICommand
-      Private m_cmdHiddenLine As ICommand
-      Private m_cmdShading As ICommand
-      Private m_cmdZoomAll As ICommand
-      Private m_cmdZoomIn As ICommand
-      Private m_cmdZoomOut As ICommand
-      Private m_cmdTopView As ICommand
-      Private m_cmdFrontView As ICommand
-      Private m_cmdLeftView As ICommand
-      Private m_cmdBackView As ICommand
-      Private m_cmdRightView As ICommand
-      Private m_cmdIsoViewSW As ICommand
-      Private m_cmdIsoViewSE As ICommand
-      Private m_cmdIsoViewNE As ICommand
-      Private m_cmdIsoViewNW As ICommand
-      Private m_cmdViewToCPlane As ICommand
-      Private m_cmdCurveDir As ICommand
-      Private m_cmdAnalyze As ICommand
-      Private m_cmdGetDist As ICommand
-      Private m_cmdCPlaneTop As ICommand
-      Private m_cmdCPlaneFront As ICommand
-      Private m_cmdCPlaneRight As ICommand
-      Private m_cmdCPlaneBack As ICommand
-      Private m_cmdCPlaneLeft As ICommand
-      Private m_cmdCPlaneBottom As ICommand
-      Private m_cmdCPlaneView As ICommand
-      Private m_cmdCPlaneElevation As ICommand
-      Private m_cmdCPlaneOrigin As ICommand
-      Private m_cmdCPlaneRotate As ICommand
-      Private m_cmdCPlane3P As ICommand
-      Private m_cmdCPlanePerpObj As ICommand
-      Private m_cmdCPlaneObj As ICommand
-
-
-      ' Costruttore
-      Sub New()
-
-      End Sub
-
-#Region "WireframeCommand"
-
-      ''' <summary>
-      ''' Returns a command that manage the MainWindow_ContentRendered command
-      ''' </summary>
-      Public ReadOnly Property WireframeCommand() As ICommand
-         Get
-            If m_cmdWireframe Is Nothing Then
-               m_cmdWireframe = New RelayCommand(AddressOf Wireframe)
-            End If
-            Return m_cmdWireframe
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Manage the MainWindow_ContentRendered event. This method is invoked by the cmdMainWindow_ContentRendered.
-      ''' </summary>
-      Public Sub Wireframe(ByVal param As Object)
-         ' Notify the ContentRendered event
-         Application.Msn.NotifyColleagues(Application.WIREFRAME)
-      End Sub
-
-#End Region ' WireframeCommand
-
-#Region "HiddenLineCommand"
-
-      ''' <summary>
-      ''' Returns a command that swith the view mode to HiddenLine.
-      ''' </summary>
-      Public ReadOnly Property HiddenLineCommand As ICommand
-         Get
-            If m_cmdHiddenLine Is Nothing Then
-               m_cmdHiddenLine = New RelayCommand(AddressOf HiddenLine, AddressOf CanHiddenLine)
-            End If
-            Return m_cmdHiddenLine
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Swith the view mode to HiddenLine.  This method is invoked by the HiddenLineCommand.
-      ''' </summary>
-      Public Sub HiddenLine(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.HIDDENLINE)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanHiddenLine(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' HiddenLineCommand
-
-#Region "ShadingCommand"
-
-      ''' <summary>
-      ''' Returns a command that swith the view mode to Shading.
-      ''' </summary>
-      Public ReadOnly Property ShadingCommand As ICommand
-         Get
-            If m_cmdShading Is Nothing Then
-               m_cmdShading = New RelayCommand(AddressOf Shading, AddressOf CanShading)
-            End If
-            Return m_cmdShading
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Swith the view mode to Shading.  This method is invoked by the ShadingCommand.
-      ''' </summary>
-      Public Sub Shading(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.SHADING)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanShading(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' ShadingCommand
-
-#Region "ZoomAllCommand"
-
-      ''' <summary>
-      ''' Returns a command that do ZoomAll.
-      ''' </summary>
-      Public ReadOnly Property ZoomAllCommand As ICommand
-         Get
-            If m_cmdZoomAll Is Nothing Then
-               m_cmdZoomAll = New RelayCommand(AddressOf ZoomAll, AddressOf CanZoomAll)
-            End If
-            Return m_cmdZoomAll
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the ZoomAll.  This method is invoked by the ZoomAllCommand.
-      ''' </summary>
-      Public Sub ZoomAll(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.ZOOMALL)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanZoomAll(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' ZoomAllCommand
-
-#Region "ZoomInCommand"
-
-      ''' <summary>
-      ''' Returns a command that do ZoomIn.
-      ''' </summary>
-      Public ReadOnly Property ZoomInCommand As ICommand
-         Get
-            If m_cmdZoomIn Is Nothing Then
-               m_cmdZoomIn = New RelayCommand(AddressOf ZoomIn, AddressOf CanZoomIn)
-            End If
-            Return m_cmdZoomIn
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the ZoomIn.  This method is invoked by the ZoomInCommand.
-      ''' </summary>
-      Public Sub ZoomIn(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.ZOOMIN)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanZoomIn(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' ZoomInCommand
-
-#Region "ZoomOutCommand"
-
-      ''' <summary>
-      ''' Returns a command that do ZoomOut.
-      ''' </summary>
-      Public ReadOnly Property ZoomOutCommand As ICommand
-         Get
-            If m_cmdZoomOut Is Nothing Then
-               m_cmdZoomOut = New RelayCommand(AddressOf ZoomOut, AddressOf CanZoomOut)
-            End If
-            Return m_cmdZoomOut
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the ZoomOut.  This method is invoked by the ZoomOutCommand.
-      ''' </summary>
-      Public Sub ZoomOut(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.ZOOMOUT)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanZoomOut(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' ZoomOutCommand
-
-#Region "TopViewCommand"
-
-      ''' <summary>
-      ''' Returns a command that do TopView.
-      ''' </summary>
-      Public ReadOnly Property TopViewCommand As ICommand
-         Get
-            If m_cmdTopView Is Nothing Then
-               m_cmdTopView = New RelayCommand(AddressOf TopView, AddressOf CanTopView)
-            End If
-            Return m_cmdTopView
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the TopView.  This method is invoked by the TopViewCommand.
-      ''' </summary>
-      Public Sub TopView(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.TOPVIEW)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanTopView(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' TopViewCommand
-
-#Region "FrontViewCommand"
-
-      ''' <summary>
-      ''' Returns a command that do FrontView.
-      ''' </summary>
-      Public ReadOnly Property FrontViewCommand As ICommand
-         Get
-            If m_cmdFrontView Is Nothing Then
-               m_cmdFrontView = New RelayCommand(AddressOf FrontView, AddressOf CanFrontView)
-            End If
-            Return m_cmdFrontView
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the FrontView.  This method is invoked by the FrontViewCommand.
-      ''' </summary>
-      Public Sub FrontView(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.FRONTVIEW)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanFrontView(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' FrontViewCommand
-
-#Region "LeftViewCommand"
-
-      ''' <summary>
-      ''' Returns a command that do LeftView.
-      ''' </summary>
-      Public ReadOnly Property LeftViewCommand As ICommand
-         Get
-            If m_cmdLeftView Is Nothing Then
-               m_cmdLeftView = New RelayCommand(AddressOf LeftView, AddressOf CanLeftView)
-            End If
-            Return m_cmdLeftView
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the LeftView.  This method is invoked by the LeftViewCommand.
-      ''' </summary>
-      Public Sub LeftView(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.LEFTVIEW)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanLeftView(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' LeftViewCommand
-
-#Region "BackViewCommand"
-
-      ''' <summary>
-      ''' Returns a command that do BackView.
-      ''' </summary>
-      Public ReadOnly Property BackViewCommand As ICommand
-         Get
-            If m_cmdBackView Is Nothing Then
-               m_cmdBackView = New RelayCommand(AddressOf BackView, AddressOf CanBackView)
-            End If
-            Return m_cmdBackView
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the BackView.  This method is invoked by the BackViewCommand.
-      ''' </summary>
-      Public Sub BackView(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.BACKVIEW)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanBackView(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' BackViewCommand
-
-#Region "RightViewCommand"
-
-      ''' <summary>
-      ''' Returns a command that do RightView.
-      ''' </summary>
-      Public ReadOnly Property RightViewCommand As ICommand
-         Get
-            If m_cmdRightView Is Nothing Then
-               m_cmdRightView = New RelayCommand(AddressOf RightView, AddressOf CanRightView)
-            End If
-            Return m_cmdRightView
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the RightView.  This method is invoked by the RightViewCommand.
-      ''' </summary>
-      Public Sub RightView(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.RIGHTVIEW)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanRightView(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' RightViewCommand
-
-#Region "IsoViewSWCommand"
-
-      ''' <summary>
-      ''' Returns a command that do IsoViewSW.
-      ''' </summary>
-      Public ReadOnly Property IsoViewSWCommand As ICommand
-         Get
-            If m_cmdIsoViewSW Is Nothing Then
-               m_cmdIsoViewSW = New RelayCommand(AddressOf IsoViewSW, AddressOf CanIsoViewSW)
-            End If
-            Return m_cmdIsoViewSW
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the IsoViewSW.  This method is invoked by the IsoViewSWCommand.
-      ''' </summary>
-      Public Sub IsoViewSW(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.ISOVIEWSW)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanIsoViewSW(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' IsoViewSWCommand
-
-#Region "IsoViewSECommand"
-
-      ''' <summary>
-      ''' Returns a command that do IsoViewSE.
-      ''' </summary>
-      Public ReadOnly Property IsoViewSECommand As ICommand
-         Get
-            If m_cmdIsoViewSE Is Nothing Then
-               m_cmdIsoViewSE = New RelayCommand(AddressOf IsoViewSE, AddressOf CanIsoViewSE)
-            End If
-            Return m_cmdIsoViewSE
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the IsoViewSE.  This method is invoked by the IsoViewSECommand.
-      ''' </summary>
-      Public Sub IsoViewSE(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.ISOVIEWSE)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanIsoViewSE(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' IsoViewSECommand
-
-#Region "IsoViewNECommand"
-
-      ''' <summary>
-      ''' Returns a command that do IsoViewNE.
-      ''' </summary>
-      Public ReadOnly Property IsoViewNECommand As ICommand
-         Get
-            If m_cmdIsoViewNE Is Nothing Then
-               m_cmdIsoViewNE = New RelayCommand(AddressOf IsoViewNE, AddressOf CanIsoViewNE)
-            End If
-            Return m_cmdIsoViewNE
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the IsoViewNE.  This method is invoked by the IsoViewNECommand.
-      ''' </summary>
-      Public Sub IsoViewNE(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.ISOVIEWNE)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanIsoViewNE(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' IsoViewNECommand
-
-#Region "IsoViewNWCommand"
-
-      ''' <summary>
-      ''' Returns a command that do IsoViewNW.
-      ''' </summary>
-      Public ReadOnly Property IsoViewNWCommand As ICommand
-         Get
-            If m_cmdIsoViewNW Is Nothing Then
-               m_cmdIsoViewNW = New RelayCommand(AddressOf IsoViewNW, AddressOf CanIsoViewNW)
-            End If
-            Return m_cmdIsoViewNW
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the IsoViewNW.  This method is invoked by the IsoViewNWCommand.
-      ''' </summary>
-      Public Sub IsoViewNW(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.ISOVIEWNW)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanIsoViewNW(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' IsoViewNWCommand
-
-#Region "ViewToCPlaneCommand"
-
-      ''' <summary>
-      ''' Returns a command that do GetDist.
-      ''' </summary>
-      Public ReadOnly Property ViewToCPlaneCommand As ICommand
-         Get
-            If m_cmdViewToCPlane Is Nothing Then
-               m_cmdViewToCPlane = New RelayCommand(AddressOf ViewToCPlane, AddressOf CanViewToCPlane)
-            End If
-            Return m_cmdViewToCPlane
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the GetDist.  This method is invoked by the GetDistCommand.
-      ''' </summary>
-      Public Sub ViewToCPlane(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.VIEWTOCPLANE)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanViewToCPlane(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' ViewToCPlaneCommand
-
-#Region "CPlaneTopCommand"
-
-      ''' <summary>
-      ''' Returns a command that do CPlaneTop.
-      ''' </summary>
-      Public ReadOnly Property CPlaneTopCommand As ICommand
-         Get
-            If m_cmdCPlaneTop Is Nothing Then
-               m_cmdCPlaneTop = New RelayCommand(AddressOf CPlaneTop, AddressOf CanCPlaneTop)
-            End If
-            Return m_cmdCPlaneTop
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the CPlaneTop.  This method is invoked by the CPlaneTopCommand.
-      ''' </summary>
-      Public Sub CPlaneTop(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.CPLANETOP)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanCPlaneTop(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' CPlaneTopCommand
-
-#Region "CPlaneFrontCommand"
-
-      ''' <summary>
-      ''' Returns a command that do CPlaneFront.
-      ''' </summary>
-      Public ReadOnly Property CPlaneFrontCommand As ICommand
-         Get
-            If m_cmdCPlaneFront Is Nothing Then
-               m_cmdCPlaneFront = New RelayCommand(AddressOf CPlaneFront, AddressOf CanCPlaneFront)
-            End If
-            Return m_cmdCPlaneFront
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the CPlaneFront.  This method is invoked by the CPlaneFrontCommand.
-      ''' </summary>
-      Public Sub CPlaneFront(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.CPLANEFRONT)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanCPlaneFront(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' CPlaneFrontCommand
-
-#Region "CPlaneRightCommand"
-
-      ''' <summary>
-      ''' Returns a command that do CPlaneRight.
-      ''' </summary>
-      Public ReadOnly Property CPlaneRightCommand As ICommand
-         Get
-            If m_cmdCPlaneRight Is Nothing Then
-               m_cmdCPlaneRight = New RelayCommand(AddressOf CPlaneRight, AddressOf CanCPlaneRight)
-            End If
-            Return m_cmdCPlaneRight
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the CPlaneRight.  This method is invoked by the CPlaneRightCommand.
-      ''' </summary>
-      Public Sub CPlaneRight(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.CPLANERIGHT)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanCPlaneRight(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' CPlaneRightCommand
-
-#Region "CPlaneBackCommand"
-
-      ''' <summary>
-      ''' Returns a command that do CPlaneBack.
-      ''' </summary>
-      Public ReadOnly Property CPlaneBackCommand As ICommand
-         Get
-            If m_cmdCPlaneBack Is Nothing Then
-               m_cmdCPlaneBack = New RelayCommand(AddressOf CPlaneBack, AddressOf CanCPlaneBack)
-            End If
-            Return m_cmdCPlaneBack
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the CPlaneBack.  This method is invoked by the CPlaneBackCommand.
-      ''' </summary>
-      Public Sub CPlaneBack(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.CPLANEBACK)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanCPlaneBack(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' CPlaneBackCommand
-
-#Region "CPlaneLeftCommand"
-
-      ''' <summary>
-      ''' Returns a command that do CPlaneLeft.
-      ''' </summary>
-      Public ReadOnly Property CPlaneLeftCommand As ICommand
-         Get
-            If m_cmdCPlaneLeft Is Nothing Then
-               m_cmdCPlaneLeft = New RelayCommand(AddressOf CPlaneLeft, AddressOf CanCPlaneLeft)
-            End If
-            Return m_cmdCPlaneLeft
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the CPlaneLeft.  This method is invoked by the CPlaneLeftCommand.
-      ''' </summary>
-      Public Sub CPlaneLeft(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.CPLANELEFT)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanCPlaneLeft(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' CPlaneLeftCommand
-
-#Region "CPlaneBottomCommand"
-
-      ''' <summary>
-      ''' Returns a command that do CPlaneBottom.
-      ''' </summary>
-      Public ReadOnly Property CPlaneBottomCommand As ICommand
-         Get
-            If m_cmdCPlaneBottom Is Nothing Then
-               m_cmdCPlaneBottom = New RelayCommand(AddressOf CPlaneBottom, AddressOf CanCPlaneBottom)
-            End If
-            Return m_cmdCPlaneBottom
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the CPlaneBottom.  This method is invoked by the CPlaneBottomCommand.
-      ''' </summary>
-      Public Sub CPlaneBottom(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.CPLANEBOTTOM)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanCPlaneBottom(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' CPlaneBottomCommand
-
-#Region "CPlaneViewCommand"
-
-      ''' <summary>
-      ''' Returns a command that do CPlaneView.
-      ''' </summary>
-      Public ReadOnly Property CPlaneViewCommand As ICommand
-         Get
-            If m_cmdCPlaneView Is Nothing Then
-               m_cmdCPlaneView = New RelayCommand(AddressOf CPlaneView, AddressOf CanCPlaneView)
-            End If
-            Return m_cmdCPlaneView
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the CPlaneView.  This method is invoked by the CPlaneViewCommand.
-      ''' </summary>
-      Public Sub CPlaneView(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.CPLANEVIEW)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanCPlaneView(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' CPlaneViewCommand
-
-#Region "CPlaneElevationCommand"
-
-      ''' <summary>
-      ''' Returns a command that do CPlaneElevation.
-      ''' </summary>
-      Public ReadOnly Property CPlaneElevationCommand As ICommand
-         Get
-            If m_cmdCPlaneElevation Is Nothing Then
-               m_cmdCPlaneElevation = New RelayCommand(AddressOf CPlaneElevation, AddressOf CanCPlaneElevation)
-            End If
-            Return m_cmdCPlaneElevation
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the CPlaneElevation.  This method is invoked by the CPlaneElevationCommand.
-      ''' </summary>
-      Public Sub CPlaneElevation(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.CPLANEELEVATION)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanCPlaneElevation(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' CPlaneElevationCommand
-
-#Region "CPlaneOriginCommand"
-
-      ''' <summary>
-      ''' Returns a command that do CPlaneOrigin.
-      ''' </summary>
-      Public ReadOnly Property CPlaneOriginCommand As ICommand
-         Get
-            If m_cmdCPlaneOrigin Is Nothing Then
-               m_cmdCPlaneOrigin = New RelayCommand(AddressOf CPlaneOrigin, AddressOf CanCPlaneOrigin)
-            End If
-            Return m_cmdCPlaneOrigin
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the CPlaneOrigin.  This method is invoked by the CPlaneOriginCommand.
-      ''' </summary>
-      Public Sub CPlaneOrigin(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.CPLANEORIGIN)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanCPlaneOrigin(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' CPlaneOriginCommand
-
-#Region "CPlaneRotateCommand"
-
-      ''' <summary>
-      ''' Returns a command that do CPlaneRotate.
-      ''' </summary>
-      Public ReadOnly Property CPlaneRotateCommand As ICommand
-         Get
-            If m_cmdCPlaneRotate Is Nothing Then
-               m_cmdCPlaneRotate = New RelayCommand(AddressOf CPlaneRotate, AddressOf CanCPlaneRotate)
-            End If
-            Return m_cmdCPlaneRotate
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the CPlaneRotate.  This method is invoked by the CPlaneRotateCommand.
-      ''' </summary>
-      Public Sub CPlaneRotate(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.CPLANEROTATE)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanCPlaneRotate(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' CPlaneRotateCommand
-
-#Region "CPlane3PCommand"
-
-      ''' <summary>
-      ''' Returns a command that do CPlane3P.
-      ''' </summary>
-      Public ReadOnly Property CPlane3PCommand As ICommand
-         Get
-            If m_cmdCPlane3P Is Nothing Then
-               m_cmdCPlane3P = New RelayCommand(AddressOf CPlane3P, AddressOf CanCPlane3P)
-            End If
-            Return m_cmdCPlane3P
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the CPlane3P.  This method is invoked by the CPlane3PCommand.
-      ''' </summary>
-      Public Sub CPlane3P(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.CPLANE3P)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanCPlane3P(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' CPlane3PCommand
-
-#Region "CPlanePerpObjCommand"
-
-      ''' <summary>
-      ''' Returns a command that do CPlanePerpObj.
-      ''' </summary>
-      Public ReadOnly Property CPlanePerpObjCommand As ICommand
-         Get
-            If m_cmdCPlanePerpObj Is Nothing Then
-               m_cmdCPlanePerpObj = New RelayCommand(AddressOf CPlanePerpObj, AddressOf CanCPlanePerpObj)
-            End If
-            Return m_cmdCPlanePerpObj
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the CPlanePerpObj.  This method is invoked by the CPlanePerpObjCommand.
-      ''' </summary>
-      Public Sub CPlanePerpObj(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.CPLANEPERPOBJ)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanCPlanePerpObj(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' CPlanePerpObjCommand
-
-#Region "CPlaneObjCommand"
-
-      ''' <summary>
-      ''' Returns a command that do CPlanepObj.
-      ''' </summary>
-      Public ReadOnly Property CPlaneObjCommand As ICommand
-         Get
-            If m_cmdCPlaneObj Is Nothing Then
-               m_cmdCPlaneObj = New RelayCommand(AddressOf CPlaneObj, AddressOf CanCPlaneObj)
-            End If
-            Return m_cmdCPlaneObj
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the CPlaneObj.  This method is invoked by the CPlaneObjCommand.
-      ''' </summary>
-      Public Sub CPlaneObj(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.CPLANEOBJ)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanCPlaneObj(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
-#End Region ' CPlaneObjCommand
-
-   End Class
-
-End Namespace
\ No newline at end of file
diff --git a/ProjectPage/InstrumentPanel/InstrumentPanelView.xaml b/ProjectPage/InstrumentPanel/InstrumentPanelView.xaml
new file mode 100644
index 0000000..36cf4e9
--- /dev/null
+++ b/ProjectPage/InstrumentPanel/InstrumentPanelView.xaml
@@ -0,0 +1,14 @@
+<UserControl x:Class="InstrumentPanelView"
+   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
+
+   <StackPanel Background="Transparent" Orientation="Horizontal">
+      <ToggleButton ToolTip="{Binding AnalyzeToolTip}" Style="{StaticResource GridViewPanelToggleButton}" IsChecked="{Binding AnalyzeIsChecked}">
+         <Image Source="/Resources/GridViewPanel/Analyze.png" Stretch="Uniform"/>
+      </ToggleButton>
+      <ToggleButton ToolTip="{Binding GetDistToolTip}" Style="{StaticResource GridViewPanelToggleButton}" IsChecked="{Binding GetDistIsChecked}">
+         <Image Source="/Resources/GridViewPanel/GetDist.png" Stretch="Uniform"/>
+      </ToggleButton>
+   </StackPanel>
+
+</UserControl>
diff --git a/ProjectPage/InstrumentPanel/InstrumentPanelView.xaml.vb b/ProjectPage/InstrumentPanel/InstrumentPanelView.xaml.vb
new file mode 100644
index 0000000..fb813f4
--- /dev/null
+++ b/ProjectPage/InstrumentPanel/InstrumentPanelView.xaml.vb
@@ -0,0 +1,3 @@
+Public Class InstrumentPanelView
+
+End Class
diff --git a/ProjectPage/InstrumentPanel/InstrumentPanelViewModel.vb b/ProjectPage/InstrumentPanel/InstrumentPanelViewModel.vb
new file mode 100644
index 0000000..4f14615
--- /dev/null
+++ b/ProjectPage/InstrumentPanel/InstrumentPanelViewModel.vb
@@ -0,0 +1,69 @@
+Imports EgtUILib
+
+Namespace EgtCAM5
+
+   Public Class InstrumentPanelViewModel
+      Inherits ViewModelBase
+
+#Region "FIELDS & PROPERTIES"
+
+#Region "ToolTip"
+
+      Public ReadOnly Property AnalyzeToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 17)
+         End Get
+      End Property
+      Public ReadOnly Property GetDistToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 18)
+         End Get
+      End Property
+
+#End Region       ' ToolTip
+
+      Private m_AnalyzeIsChecked As Boolean
+      Public Property AnalyzeIsChecked As Boolean
+         Get
+            Return m_AnalyzeIsChecked
+         End Get
+         Set(value As Boolean)
+            If value <> m_AnalyzeIsChecked Then
+               m_AnalyzeIsChecked = value
+               GetDistIsChecked = False
+               If value Then
+                  Application.Msn.NotifyColleagues(Application.SETSTATUSANALYZE)
+               Else
+                  Application.Msn.NotifyColleagues(Application.RESETSTATUSANALYZE)
+               End If
+               OnPropertyChanged("GetDistIsChecked")
+               OnPropertyChanged("AnalyzeIsChecked")
+            End If
+         End Set
+      End Property
+
+      Private m_GetDistIsChecked As Boolean
+      Public Property GetDistIsChecked As Boolean
+         Get
+            Return m_GetDistIsChecked
+         End Get
+         Set(value As Boolean)
+            If value <> m_GetDistIsChecked Then
+               m_GetDistIsChecked = value
+               AnalyzeIsChecked = False
+               If value Then
+                  Application.Msn.NotifyColleagues(Application.SETSTATUSGETDISTANCE)
+               Else
+                  Application.Msn.NotifyColleagues(Application.RESETSTATUSGETDISTANCE)
+               End If
+               OnPropertyChanged("GetDistIsChecked")
+               OnPropertyChanged("AnalyzeIsChecked")
+            End If
+         End Set
+      End Property
+
+#End Region    ' FIELDS & PROPERTIES
+
+   End Class
+
+End Namespace
\ No newline at end of file
diff --git a/ProjectPage/OptionPanel/OptionPanelView.xaml b/ProjectPage/OptionPanel/OptionPanelView.xaml
index 748d7a8..9167d57 100644
--- a/ProjectPage/OptionPanel/OptionPanelView.xaml
+++ b/ProjectPage/OptionPanel/OptionPanelView.xaml
@@ -3,7 +3,7 @@
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" Width="200"
    xmlns:interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity">
 
-   <StackPanel Background="DarkGray">
+   <StackPanel Background="Transparent">
       <UniformGrid Rows="1">
          <RadioButton Style="{StaticResource DrawOptionPanel_ToggleButton}" Content="DRAW" Height="30" IsChecked="{Binding DrawIsChecked}"/>
          <RadioButton Style="{StaticResource DrawOptionPanel_ToggleButton}" Content="MACHINING" Height="30" IsChecked="{Binding WorkIsChecked}"/>
diff --git a/ProjectPage/ProjectView.xaml b/ProjectPage/ProjectView.xaml
index ccd5354..9508b45 100644
--- a/ProjectPage/ProjectView.xaml
+++ b/ProjectPage/ProjectView.xaml
@@ -16,9 +16,29 @@
 
    <EgtFloating:EgtFloatingManager>
       <EgtFloating:EgtFloatingTray x:Name="TOPTRAY" DockPanel.Dock="Top">
-         <EgtFloating:EgtFloatingPanel Name="GridViewPanel"
+         <EgtFloating:EgtFloatingPanel Name="ShowPanel"
             IsTopDockable="True" IsBottomDockable="True" IsLeftDockable="False" IsRightDockable="False">
-            <local:GridViewPanelView DataContext="{StaticResource GridViewPanelViewModel}"/>
+            <local:ShowPanelView DataContext="{StaticResource ShowPanelViewModel}"/>
+         </EgtFloating:EgtFloatingPanel>
+         <EgtFloating:EgtFloatingPanel Name="ViewPanel"
+            IsTopDockable="True" IsBottomDockable="True" IsLeftDockable="False" IsRightDockable="False">
+            <local:ViewPanelView DataContext="{StaticResource ViewPanelViewModel}"/>
+         </EgtFloating:EgtFloatingPanel>
+         <EgtFloating:EgtFloatingPanel Name="InstrumentPanel"
+            IsTopDockable="True" IsBottomDockable="True" IsLeftDockable="False" IsRightDockable="False">
+            <local:InstrumentPanelView DataContext="{StaticResource InstrumentPanelViewModel}"/>
+         </EgtFloating:EgtFloatingPanel>
+         <EgtFloating:EgtFloatingPanel Name="GridPanel"
+            IsTopDockable="True" IsBottomDockable="True" IsLeftDockable="False" IsRightDockable="False">
+            <local:GridPanelView DataContext="{StaticResource GridPanelViewModel}"/>
+         </EgtFloating:EgtFloatingPanel>
+         <EgtFloating:EgtFloatingPanel Name="ExecutePanel"
+            IsTopDockable="True" IsBottomDockable="True" IsLeftDockable="False" IsRightDockable="False">
+            <local:ExecutePanelView DataContext="{StaticResource ExecutePanelViewModel}"/>
+         </EgtFloating:EgtFloatingPanel>
+         <EgtFloating:EgtFloatingPanel Name="DoorsPanel"
+            IsTopDockable="True" IsBottomDockable="True" IsLeftDockable="False" IsRightDockable="False">
+            <local:DoorsPanelView DataContext="{StaticResource DoorsPanelViewModel}"/>
          </EgtFloating:EgtFloatingPanel>
       </EgtFloating:EgtFloatingTray>
       <EgtFloating:EgtFloatingTray x:Name="BOTTOMTRAY" DockPanel.Dock="Bottom"/>
diff --git a/ProjectPage/ProjectView.xaml.vb b/ProjectPage/ProjectView.xaml.vb
index ac3ee1f..a4f16a0 100644
--- a/ProjectPage/ProjectView.xaml.vb
+++ b/ProjectPage/ProjectView.xaml.vb
@@ -8,11 +8,27 @@ Public Class ProjectView
       Dim nIndex As Integer = -1
       Dim nLeft As Integer = -1
       Dim nTop As Integer = -1
-      GridViewPanel.IsFloating = False
+      ShowPanel.IsFloating = False
+      ViewPanel.IsFloating = False
+      InstrumentPanel.IsFloating = False
+      GridPanel.IsFloating = False
+      DoorsPanel.IsFloating = False
       DrawPanel.IsFloating = False
       OptionPanel.IsFloating = False
-      If GetPrivateProfileFloatingWinPos(S_GENERAL, "GridViewPanel", sState, nIndex, nLeft, nTop) And Not String.IsNullOrEmpty(sState) Then
-         PanelPositioning(GridViewPanel, sState, nIndex, nLeft, nTop)
+      If GetPrivateProfileFloatingWinPos(S_GENERAL, "ShowPanel", sState, nIndex, nLeft, nTop) And Not String.IsNullOrEmpty(sState) Then
+         PanelPositioning(ShowPanel, sState, nIndex, nLeft, nTop)
+      End If
+      If GetPrivateProfileFloatingWinPos(S_GENERAL, "ViewPanel", sState, nIndex, nLeft, nTop) And Not String.IsNullOrEmpty(sState) Then
+         PanelPositioning(ViewPanel, sState, nIndex, nLeft, nTop)
+      End If
+      If GetPrivateProfileFloatingWinPos(S_GENERAL, "InstrumentPanel", sState, nIndex, nLeft, nTop) And Not String.IsNullOrEmpty(sState) Then
+         PanelPositioning(InstrumentPanel, sState, nIndex, nLeft, nTop)
+      End If
+      If GetPrivateProfileFloatingWinPos(S_GENERAL, "GridPanel", sState, nIndex, nLeft, nTop) And Not String.IsNullOrEmpty(sState) Then
+         PanelPositioning(GridPanel, sState, nIndex, nLeft, nTop)
+      End If
+      If GetPrivateProfileFloatingWinPos(S_GENERAL, "DoorsPanel", sState, nIndex, nLeft, nTop) And Not String.IsNullOrEmpty(sState) Then
+         PanelPositioning(DoorsPanel, sState, nIndex, nLeft, nTop)
       End If
       If GetPrivateProfileFloatingWinPos(S_GENERAL, "DrawPanel", sState, nIndex, nLeft, nTop) And Not String.IsNullOrEmpty(sState) Then
          PanelPositioning(DrawPanel, sState, nIndex, nLeft, nTop)
@@ -21,12 +37,20 @@ Public Class ProjectView
          PanelPositioning(OptionPanel, sState, nIndex, nLeft, nTop)
       End If
       Application.Msn.Register(Application.PROJECTPAGE_DRAWMODE, Sub()
-                                                                    GridViewPanel.Visibility = Visibility.Visible
+                                                                    ShowPanel.Visibility = Visibility.Visible
+                                                                    ViewPanel.Visibility = Visibility.Visible
+                                                                    InstrumentPanel.Visibility = Visibility.Visible
+                                                                    GridPanel.Visibility = Visibility.Visible
+                                                                    DoorsPanel.Visibility = Visibility.Visible
                                                                     DrawPanel.Visibility = Visibility.Visible
                                                                     OptionPanel.Visibility = Visibility.Visible
                                                                  End Sub)
       Application.Msn.Register(Application.PROJECTPAGE_MACHININGMODE, Sub()
-                                                                         GridViewPanel.Visibility = Visibility.Visible
+                                                                         ShowPanel.Visibility = Visibility.Visible
+                                                                         ViewPanel.Visibility = Visibility.Visible
+                                                                         InstrumentPanel.Visibility = Visibility.Visible
+                                                                         GridPanel.Visibility = Visibility.Visible
+                                                                         DoorsPanel.Visibility = Visibility.Visible
                                                                          DrawPanel.Visibility = Visibility.Collapsed
                                                                          OptionPanel.Visibility = Visibility.Visible
                                                                       End Sub)
diff --git a/ProjectPage/ProjectViewModel.vb b/ProjectPage/ProjectViewModel.vb
index 7bced24..4113546 100644
--- a/ProjectPage/ProjectViewModel.vb
+++ b/ProjectPage/ProjectViewModel.vb
@@ -15,14 +15,6 @@ Namespace EgtCAM5
 
       Private m_bLoaded As Boolean = False
 
-      'PROJECT PAGE'S PANELS
-      Private m_GridViewPanel As BaseWindowView
-      Private m_DrawPanel As BaseWindowView
-      Private m_DrawOptionPanel As BaseWindowView
-      'Private m_GridViewPanel As EgtFloatingPanel
-      'Private m_DrawPanel As EgtFloatingPanel
-      'Private m_DrawOptionPanel As EgtFloatingPanel
-
       'PROJECT PAGE'S SCENE FIELDS AND PROPERTIES
       ' Reference to the ProjectScene
       Private WithEvents m_ProjectScene As New Scene
@@ -66,22 +58,6 @@ Namespace EgtCAM5
 
       Sub New()
          Me.sTabName = EgtMsg(MSG_MAINWINDOW + 1)
-         'Dim WinPos As New WinPos
-         'GetPrivateProfileWinPos(S_GENERAL, "Win1", WinPos.nFlag, WinPos.nLeft, WinPos.nTop, WinPos.nWidth, WinPos.nHeight)
-         'm_GridViewPanel = New BaseWindowView
-         'm_GridViewPanel.DataContext = New GridViewPanelViewModel
-         'WinPosToWindow(m_GridViewPanel, WinPos)
-         'm_GridViewPanel.Show()
-         'GetPrivateProfileWinPos(S_GENERAL, "Win2", WinPos.nFlag, WinPos.nLeft, WinPos.nTop, WinPos.nWidth, WinPos.nHeight)
-         'm_DrawPanel = New BaseWindowView
-         'm_DrawPanel.DataContext = New DrawPanelViewModel
-         'WinPosToWindow(m_DrawPanel, WinPos)
-         'm_DrawPanel.Show()
-         'GetPrivateProfileWinPos(S_GENERAL, "Win3", WinPos.nFlag, WinPos.nLeft, WinPos.nTop, WinPos.nWidth, WinPos.nHeight)
-         'm_DrawOptionPanel = New BaseWindowView
-         'm_DrawOptionPanel.DataContext = New OptionPanelViewModel
-         'WinPosToWindow(m_DrawOptionPanel, WinPos)
-         'm_DrawOptionPanel.Show()
          ' Funzione che contiene la registrazione alle funzioni che permettono di visualizzare e nascondere le finestre di disegno
          ManagePanelVisibility()
          ManageClosingApplication()
@@ -330,27 +306,11 @@ Namespace EgtCAM5
       ''' Method that manage the visibility of the ProjectPage's Panels
       ''' </summary>
       Sub ManagePanelVisibility()
-         'Application.Msn.Register(Application.PROJECTPAGE_SELECTED, Sub()
-         '                                                              m_GridViewPanel.Visibility = Visibility.Visible
-         '                                                              m_DrawPanel.Visibility = Visibility.Visible
-         '                                                              m_DrawOptionPanel.Visibility = Visibility.Visible
-         '                                                           End Sub)
-         'Application.Msn.Register(Application.PROJECTPAGE_DESELECTED, Sub()
-         '                                                                m_GridViewPanel.Visibility = Visibility.Hidden
-         '                                                                m_DrawPanel.Visibility = Visibility.Hidden
-         '                                                                m_DrawOptionPanel.Visibility = Visibility.Hidden
-         '                                                             End Sub)
          Application.Msn.Register(Application.PROJECTPAGE_DRAWMODE, Sub()
                                                                        Me.sTabName = EgtMsg(MSG_MAINWINDOW + 1)
-                                                                       'm_GridViewPanel.Visibility = Visibility.Visible
-                                                                       'm_DrawPanel.Visibility = Visibility.Visible
-                                                                       'm_DrawOptionPanel.Visibility = Visibility.Visible
                                                                     End Sub)
          Application.Msn.Register(Application.PROJECTPAGE_MACHININGMODE, Sub()
                                                                             Me.sTabName = EgtMsg(MSG_MAINWINDOW + 2)
-                                                                            'm_GridViewPanel.Visibility = Visibility.Visible
-                                                                            'm_DrawPanel.Visibility = Visibility.Hidden
-                                                                            'm_DrawOptionPanel.Visibility = Visibility.Visible
                                                                          End Sub)
 
       End Sub
diff --git a/ProjectPage/ShowPanel/ShowPanelView.xaml b/ProjectPage/ShowPanel/ShowPanelView.xaml
new file mode 100644
index 0000000..47007b5
--- /dev/null
+++ b/ProjectPage/ShowPanel/ShowPanelView.xaml
@@ -0,0 +1,20 @@
+<UserControl x:Class="ShowPanelView"
+   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
+
+   <StackPanel Background="Transparent" Orientation="Horizontal">
+      <RadioButton ToolTip="{Binding RenderingWFToolTip}" Style="{StaticResource GridViewPanelRadioButton}" Command="{Binding WireframeCommand}">
+         <Image Source="/Resources/GridViewPanel/RenderingWF.png" Stretch="Uniform"/>
+      </RadioButton>
+      <RadioButton ToolTip="{Binding RenderingHLToolTip}" Style="{StaticResource GridViewPanelRadioButton}" Command="{Binding HiddenLineCommand}">
+         <Image Source="/Resources/GridViewPanel/RenderingHL.png" Stretch="Uniform"/>
+      </RadioButton>
+      <RadioButton ToolTip="{Binding RenderingSHToolTip}" Style="{StaticResource GridViewPanelRadioButton}" Command="{Binding ShadingCommand}">
+         <Image Source="/Resources/GridViewPanel/RenderingSH.png" Stretch="Uniform"/>
+      </RadioButton>
+      <ToggleButton ToolTip="{Binding CurveDirToolTip}" Style="{StaticResource GridViewPanelToggleButton}" IsChecked="{Binding CurveDirIsChecked}">
+         <Image Source="/Resources/GridViewPanel/CurveDir.png" Stretch="Uniform"/>
+      </ToggleButton>
+   </StackPanel>
+
+</UserControl>
diff --git a/ProjectPage/ShowPanel/ShowPanelView.xaml.vb b/ProjectPage/ShowPanel/ShowPanelView.xaml.vb
new file mode 100644
index 0000000..1677643
--- /dev/null
+++ b/ProjectPage/ShowPanel/ShowPanelView.xaml.vb
@@ -0,0 +1,3 @@
+Public Class ShowPanelView
+
+End Class
diff --git a/ProjectPage/ShowPanel/ShowPanelViewModel.vb b/ProjectPage/ShowPanel/ShowPanelViewModel.vb
new file mode 100644
index 0000000..f2c815f
--- /dev/null
+++ b/ProjectPage/ShowPanel/ShowPanelViewModel.vb
@@ -0,0 +1,148 @@
+Imports EgtUILib
+
+Namespace EgtCAM5
+
+   Public Class ShowPanelViewModel
+      Inherits ViewModelBase
+#Region "FIELDS & PROPERTIES"
+
+      ' Definizione comandi
+      Private m_cmdWireframe As ICommand
+      Private m_cmdHiddenLine As ICommand
+      Private m_cmdShading As ICommand
+      Private m_cmdCurveDir As ICommand
+
+#Region "ToolTip"
+
+      Public ReadOnly Property RenderingWFToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 1)
+         End Get
+      End Property
+
+      Public ReadOnly Property RenderingHLToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 2)
+         End Get
+      End Property
+
+      Public ReadOnly Property RenderingSHToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 3)
+         End Get
+      End Property
+      Public ReadOnly Property CurveDirToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 16)
+         End Get
+      End Property
+
+#End Region
+
+      Private m_CurveDirIsChecked As Boolean
+      Public Property CurveDirIsChecked As Boolean
+         Get
+            Return m_CurveDirIsChecked
+         End Get
+         Set(value As Boolean)
+            If value <> m_CurveDirIsChecked Then
+               m_CurveDirIsChecked = value
+               EgtSetShowCurveDirection(value)
+               OnPropertyChanged("CurveDirIsChecked")
+            End If
+         End Set
+      End Property
+
+#End Region    ' FIELDS & PROPERTIES
+
+#Region "COMMANDS"
+
+#Region "WireframeCommand"
+
+      ''' <summary>
+      ''' Returns a command that manage the MainWindow_ContentRendered command
+      ''' </summary>
+      Public ReadOnly Property WireframeCommand() As ICommand
+         Get
+            If m_cmdWireframe Is Nothing Then
+               m_cmdWireframe = New RelayCommand(AddressOf Wireframe)
+            End If
+            Return m_cmdWireframe
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Manage the MainWindow_ContentRendered event. This method is invoked by the cmdMainWindow_ContentRendered.
+      ''' </summary>
+      Public Sub Wireframe(ByVal param As Object)
+         ' Notify the ContentRendered event
+         Application.Msn.NotifyColleagues(Application.WIREFRAME)
+      End Sub
+
+#End Region ' WireframeCommand
+
+#Region "HiddenLineCommand"
+
+      ''' <summary>
+      ''' Returns a command that swith the view mode to HiddenLine.
+      ''' </summary>
+      Public ReadOnly Property HiddenLineCommand As ICommand
+         Get
+            If m_cmdHiddenLine Is Nothing Then
+               m_cmdHiddenLine = New RelayCommand(AddressOf HiddenLine, AddressOf CanHiddenLine)
+            End If
+            Return m_cmdHiddenLine
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Swith the view mode to HiddenLine.  This method is invoked by the HiddenLineCommand.
+      ''' </summary>
+      Public Sub HiddenLine(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.HIDDENLINE)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanHiddenLine(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' HiddenLineCommand
+
+#Region "ShadingCommand"
+
+      ''' <summary>
+      ''' Returns a command that swith the view mode to Shading.
+      ''' </summary>
+      Public ReadOnly Property ShadingCommand As ICommand
+         Get
+            If m_cmdShading Is Nothing Then
+               m_cmdShading = New RelayCommand(AddressOf Shading, AddressOf CanShading)
+            End If
+            Return m_cmdShading
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Swith the view mode to Shading.  This method is invoked by the ShadingCommand.
+      ''' </summary>
+      Public Sub Shading(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.SHADING)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanShading(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' ShadingCommand
+
+#End Region    ' COMMANDS
+
+   End Class
+
+End Namespace
\ No newline at end of file
diff --git a/ProjectPage/ViewPanel/ViewPanelView.xaml b/ProjectPage/ViewPanel/ViewPanelView.xaml
new file mode 100644
index 0000000..fb38423
--- /dev/null
+++ b/ProjectPage/ViewPanel/ViewPanelView.xaml
@@ -0,0 +1,49 @@
+<UserControl x:Class="ViewPanelView"
+   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
+
+   <StackPanel Background="Transparent" Orientation="Horizontal">
+      <Button ToolTip="{Binding ZoomAllToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding ZoomAllCommand}">
+         <Image Source="/Resources/GridViewPanel/ZoomAll.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding ZoomInToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding ZoomInCommand}">
+         <Image Source="/Resources/GridViewPanel/ZoomIn.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding ZoomOutToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding ZoomOutCommand}">
+         <Image Source="/Resources/GridViewPanel/ZoomOut.png" Stretch="Uniform"/>
+      </Button>
+      <Separator Style="{StaticResource {x:Static ToolBar.SeparatorStyleKey}}" Background="LightGray"/>
+      <Button ToolTip="{Binding LookFromTopToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding TopViewCommand}">
+         <Image Source="/Resources/GridViewPanel/LookFromTOP.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding LookFromFrontToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding FrontViewCommand}">
+         <Image Source="/Resources/GridViewPanel/LookFromFRONT.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding LookFromLeftToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding LeftViewCommand}">
+         <Image Source="/Resources/GridViewPanel/LookFromLEFT.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding LookFromBackToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding BackViewCommand}">
+         <Image Source="/Resources/GridViewPanel/LookFromBACK.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding LookFromRightToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding RightViewCommand}">
+         <Image Source="/Resources/GridViewPanel/LookFromRIGHT.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding LookFromIso_SWToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding IsoViewSWCommand}">
+         <Image Source="/Resources/GridViewPanel/LookFromISO_SW.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding LookFromIso_SEToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding IsoViewSECommand}">
+         <Image Source="/Resources/GridViewPanel/LookFromISO_SE.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding LookFromIso_NEToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding IsoViewNECommand}">
+         <Image Source="/Resources/GridViewPanel/LookFromISO_NE.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding LookFromIso_NWToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding IsoViewNWCommand}">
+         <Image Source="/Resources/GridViewPanel/LookFromISO_NW.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding ViewToCPlaneToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding ViewToCPlaneCommand}">
+         <Image Source="/Resources/GridViewPanel/CplaneView.png" Stretch="Uniform"/>
+      </Button>
+
+   </StackPanel>
+
+</UserControl>
diff --git a/ProjectPage/GridViewPanel/GridViewPanelView.xaml.vb b/ProjectPage/ViewPanel/ViewPanelView.xaml.vb
similarity index 100%
rename from ProjectPage/GridViewPanel/GridViewPanelView.xaml.vb
rename to ProjectPage/ViewPanel/ViewPanelView.xaml.vb
diff --git a/ProjectPage/ViewPanel/ViewPanelViewModel.vb b/ProjectPage/ViewPanel/ViewPanelViewModel.vb
new file mode 100644
index 0000000..f8ea944
--- /dev/null
+++ b/ProjectPage/ViewPanel/ViewPanelViewModel.vb
@@ -0,0 +1,505 @@
+Imports EgtUILib
+
+Namespace EgtCAM5
+
+   Public Class ViewPanelViewModel
+      Inherits ViewModelBase
+
+#Region "FIELDS & PROPERTIES"
+
+      ' Definizione comandi
+      Private m_cmdZoomAll As ICommand
+      Private m_cmdZoomIn As ICommand
+      Private m_cmdZoomOut As ICommand
+      Private m_cmdTopView As ICommand
+      Private m_cmdFrontView As ICommand
+      Private m_cmdLeftView As ICommand
+      Private m_cmdBackView As ICommand
+      Private m_cmdRightView As ICommand
+      Private m_cmdIsoViewSW As ICommand
+      Private m_cmdIsoViewSE As ICommand
+      Private m_cmdIsoViewNE As ICommand
+      Private m_cmdIsoViewNW As ICommand
+      Private m_cmdViewToCPlane As ICommand
+
+#Region "ToolTip"
+
+      Public ReadOnly Property ZoomAllToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 4)
+         End Get
+      End Property
+
+      Public ReadOnly Property ZoomInToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 5)
+         End Get
+      End Property
+
+      Public ReadOnly Property ZoomOutToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 6)
+         End Get
+      End Property
+
+      Public ReadOnly Property LookFromTopToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 7)
+         End Get
+      End Property
+
+      Public ReadOnly Property LookFromFrontToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 8)
+         End Get
+      End Property
+
+      Public ReadOnly Property LookFromLeftToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 9)
+         End Get
+      End Property
+
+      Public ReadOnly Property LookFromBackToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 10)
+         End Get
+      End Property
+
+      Public ReadOnly Property LookFromRightToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 11)
+         End Get
+      End Property
+
+      Public ReadOnly Property LookFromIso_SWToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 12)
+         End Get
+      End Property
+
+      Public ReadOnly Property LookFromIso_SEToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 13)
+         End Get
+      End Property
+
+      Public ReadOnly Property LookFromIso_NEToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 14)
+         End Get
+      End Property
+
+      Public ReadOnly Property LookFromIso_NWToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 15)
+         End Get
+      End Property
+
+      Public ReadOnly Property ViewToCPlaneToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 32)
+         End Get
+      End Property
+
+#End Region    ' ToolTip
+
+#End Region    ' FIELDS & PROPERTIES
+
+#Region "COMMANDS"
+
+#Region "ZoomAllCommand"
+
+      ''' <summary>
+      ''' Returns a command that do ZoomAll.
+      ''' </summary>
+      Public ReadOnly Property ZoomAllCommand As ICommand
+         Get
+            If m_cmdZoomAll Is Nothing Then
+               m_cmdZoomAll = New RelayCommand(AddressOf ZoomAll, AddressOf CanZoomAll)
+            End If
+            Return m_cmdZoomAll
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the ZoomAll.  This method is invoked by the ZoomAllCommand.
+      ''' </summary>
+      Public Sub ZoomAll(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.ZOOMALL)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanZoomAll(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' ZoomAllCommand
+
+#Region "ZoomInCommand"
+
+      ''' <summary>
+      ''' Returns a command that do ZoomIn.
+      ''' </summary>
+      Public ReadOnly Property ZoomInCommand As ICommand
+         Get
+            If m_cmdZoomIn Is Nothing Then
+               m_cmdZoomIn = New RelayCommand(AddressOf ZoomIn, AddressOf CanZoomIn)
+            End If
+            Return m_cmdZoomIn
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the ZoomIn.  This method is invoked by the ZoomInCommand.
+      ''' </summary>
+      Public Sub ZoomIn(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.ZOOMIN)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanZoomIn(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' ZoomInCommand
+
+#Region "ZoomOutCommand"
+
+      ''' <summary>
+      ''' Returns a command that do ZoomOut.
+      ''' </summary>
+      Public ReadOnly Property ZoomOutCommand As ICommand
+         Get
+            If m_cmdZoomOut Is Nothing Then
+               m_cmdZoomOut = New RelayCommand(AddressOf ZoomOut, AddressOf CanZoomOut)
+            End If
+            Return m_cmdZoomOut
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the ZoomOut.  This method is invoked by the ZoomOutCommand.
+      ''' </summary>
+      Public Sub ZoomOut(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.ZOOMOUT)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanZoomOut(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' ZoomOutCommand
+
+#Region "TopViewCommand"
+
+      ''' <summary>
+      ''' Returns a command that do TopView.
+      ''' </summary>
+      Public ReadOnly Property TopViewCommand As ICommand
+         Get
+            If m_cmdTopView Is Nothing Then
+               m_cmdTopView = New RelayCommand(AddressOf TopView, AddressOf CanTopView)
+            End If
+            Return m_cmdTopView
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the TopView.  This method is invoked by the TopViewCommand.
+      ''' </summary>
+      Public Sub TopView(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.TOPVIEW)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanTopView(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' TopViewCommand
+
+#Region "FrontViewCommand"
+
+      ''' <summary>
+      ''' Returns a command that do FrontView.
+      ''' </summary>
+      Public ReadOnly Property FrontViewCommand As ICommand
+         Get
+            If m_cmdFrontView Is Nothing Then
+               m_cmdFrontView = New RelayCommand(AddressOf FrontView, AddressOf CanFrontView)
+            End If
+            Return m_cmdFrontView
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the FrontView.  This method is invoked by the FrontViewCommand.
+      ''' </summary>
+      Public Sub FrontView(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.FRONTVIEW)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanFrontView(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' FrontViewCommand
+
+#Region "LeftViewCommand"
+
+      ''' <summary>
+      ''' Returns a command that do LeftView.
+      ''' </summary>
+      Public ReadOnly Property LeftViewCommand As ICommand
+         Get
+            If m_cmdLeftView Is Nothing Then
+               m_cmdLeftView = New RelayCommand(AddressOf LeftView, AddressOf CanLeftView)
+            End If
+            Return m_cmdLeftView
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the LeftView.  This method is invoked by the LeftViewCommand.
+      ''' </summary>
+      Public Sub LeftView(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.LEFTVIEW)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanLeftView(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' LeftViewCommand
+
+#Region "BackViewCommand"
+
+      ''' <summary>
+      ''' Returns a command that do BackView.
+      ''' </summary>
+      Public ReadOnly Property BackViewCommand As ICommand
+         Get
+            If m_cmdBackView Is Nothing Then
+               m_cmdBackView = New RelayCommand(AddressOf BackView, AddressOf CanBackView)
+            End If
+            Return m_cmdBackView
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the BackView.  This method is invoked by the BackViewCommand.
+      ''' </summary>
+      Public Sub BackView(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.BACKVIEW)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanBackView(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' BackViewCommand
+
+#Region "RightViewCommand"
+
+      ''' <summary>
+      ''' Returns a command that do RightView.
+      ''' </summary>
+      Public ReadOnly Property RightViewCommand As ICommand
+         Get
+            If m_cmdRightView Is Nothing Then
+               m_cmdRightView = New RelayCommand(AddressOf RightView, AddressOf CanRightView)
+            End If
+            Return m_cmdRightView
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the RightView.  This method is invoked by the RightViewCommand.
+      ''' </summary>
+      Public Sub RightView(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.RIGHTVIEW)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanRightView(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' RightViewCommand
+
+#Region "IsoViewSWCommand"
+
+      ''' <summary>
+      ''' Returns a command that do IsoViewSW.
+      ''' </summary>
+      Public ReadOnly Property IsoViewSWCommand As ICommand
+         Get
+            If m_cmdIsoViewSW Is Nothing Then
+               m_cmdIsoViewSW = New RelayCommand(AddressOf IsoViewSW, AddressOf CanIsoViewSW)
+            End If
+            Return m_cmdIsoViewSW
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the IsoViewSW.  This method is invoked by the IsoViewSWCommand.
+      ''' </summary>
+      Public Sub IsoViewSW(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.ISOVIEWSW)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanIsoViewSW(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' IsoViewSWCommand
+
+#Region "IsoViewSECommand"
+
+      ''' <summary>
+      ''' Returns a command that do IsoViewSE.
+      ''' </summary>
+      Public ReadOnly Property IsoViewSECommand As ICommand
+         Get
+            If m_cmdIsoViewSE Is Nothing Then
+               m_cmdIsoViewSE = New RelayCommand(AddressOf IsoViewSE, AddressOf CanIsoViewSE)
+            End If
+            Return m_cmdIsoViewSE
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the IsoViewSE.  This method is invoked by the IsoViewSECommand.
+      ''' </summary>
+      Public Sub IsoViewSE(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.ISOVIEWSE)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanIsoViewSE(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' IsoViewSECommand
+
+#Region "IsoViewNECommand"
+
+      ''' <summary>
+      ''' Returns a command that do IsoViewNE.
+      ''' </summary>
+      Public ReadOnly Property IsoViewNECommand As ICommand
+         Get
+            If m_cmdIsoViewNE Is Nothing Then
+               m_cmdIsoViewNE = New RelayCommand(AddressOf IsoViewNE, AddressOf CanIsoViewNE)
+            End If
+            Return m_cmdIsoViewNE
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the IsoViewNE.  This method is invoked by the IsoViewNECommand.
+      ''' </summary>
+      Public Sub IsoViewNE(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.ISOVIEWNE)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanIsoViewNE(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' IsoViewNECommand
+
+#Region "IsoViewNWCommand"
+
+      ''' <summary>
+      ''' Returns a command that do IsoViewNW.
+      ''' </summary>
+      Public ReadOnly Property IsoViewNWCommand As ICommand
+         Get
+            If m_cmdIsoViewNW Is Nothing Then
+               m_cmdIsoViewNW = New RelayCommand(AddressOf IsoViewNW, AddressOf CanIsoViewNW)
+            End If
+            Return m_cmdIsoViewNW
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the IsoViewNW.  This method is invoked by the IsoViewNWCommand.
+      ''' </summary>
+      Public Sub IsoViewNW(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.ISOVIEWNW)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanIsoViewNW(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' IsoViewNWCommand
+
+#Region "ViewToCPlaneCommand"
+
+      ''' <summary>
+      ''' Returns a command that do GetDist.
+      ''' </summary>
+      Public ReadOnly Property ViewToCPlaneCommand As ICommand
+         Get
+            If m_cmdViewToCPlane Is Nothing Then
+               m_cmdViewToCPlane = New RelayCommand(AddressOf ViewToCPlane, AddressOf CanViewToCPlane)
+            End If
+            Return m_cmdViewToCPlane
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the GetDist.  This method is invoked by the GetDistCommand.
+      ''' </summary>
+      Public Sub ViewToCPlane(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.VIEWTOCPLANE)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanViewToCPlane(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' ViewToCPlaneCommand
+
+#End Region    ' COMMANDS
+
+   End Class
+
+End Namespace
\ No newline at end of file
diff --git a/Resources/Fonts/gothic.ttf b/Resources/Fonts/gothic.ttf
new file mode 100644
index 0000000..c632099
Binary files /dev/null and b/Resources/Fonts/gothic.ttf differ
diff --git a/StatusBar/StatusBarView.xaml b/StatusBar/StatusBarView.xaml
index af3dd5e..3c8779a 100644
--- a/StatusBar/StatusBarView.xaml
+++ b/StatusBar/StatusBarView.xaml
@@ -7,7 +7,7 @@
    d:DesignHeight="20" d:DesignWidth="1366">
 
    <!--StatusBar che contiene quote, barre di caricamento ed alcune impostazioni-->
-   <StatusBar DockPanel.Dock="Bottom">
+   <StatusBar DockPanel.Dock="Bottom" Background="{StaticResource EgaltechBlue1}">
       <StatusBar.ItemsPanel>
          <ItemsPanelTemplate>
             <Grid>
@@ -33,7 +33,7 @@
             IsEnabled="{Binding StatusStopIsEnabled}" Width="20"/>
       </StatusBarItem>
       <StatusBarItem Grid.Column="2">
-         <TextBlock Text="{Binding StatusOutput}"/>
+         <TextBlock Text="{Binding StatusOutput}" Foreground="{StaticResource EgaltechWhite}"/>
       </StatusBarItem>
       <StatusBarItem Grid.Column="3">
          <Button Content="{Binding SnapPointTypeText}" Background="{Binding SnapPointTypeBackground}" Width="80"/>
@@ -46,7 +46,7 @@
       </StatusBarItem>
       <StatusBarItem Grid.Column="6">
          <!--Indica la posizione del mouse quando è sulla scena-->
-         <TextBlock Text="{Binding StatusCurrPos}"/>
+         <TextBlock Text="{Binding StatusCurrPos}" Foreground="{StaticResource EgaltechWhite}"/>
       </StatusBarItem>
       <StatusBarItem Grid.Column="7">
          <Button Command="{Binding StatusUnitsCommand}" Content="{Binding StatusUnitsText}" Width="35"/>
diff --git a/TopCommandBar/TopCommandBarView.xaml b/TopCommandBar/TopCommandBarView.xaml
index 47a2042..4836c17 100644
--- a/TopCommandBar/TopCommandBarView.xaml
+++ b/TopCommandBar/TopCommandBarView.xaml
@@ -25,13 +25,6 @@
       <Button Command="{Binding ExportCommand}" ToolTip="{Binding ExportToolTip}">
          <Image Source="/Resources/TopCommandBar/Export.png" Stretch="Uniform"/>
       </Button>
-      <Separator Style="{StaticResource {x:Static ToolBar.SeparatorStyleKey}}" Background="LightGray"/>
-      <Button Command="{Binding ExecCommand}"  ToolTip="{Binding ExecToolTip}">
-         <Image Source="/Resources/TopCommandBar/Exec.png" Stretch="Uniform"/>
-      </Button>
-      <Separator Style="{StaticResource {x:Static ToolBar.SeparatorStyleKey}}" Background="LightGray"/>
-      <Button Content="DOORS" Command="{Binding DoorsCommand}"/>
-      <Button Content="DMACH" Command="{Binding DMachCommand}"/>
 
    </StackPanel>
 
diff --git a/TopCommandBar/TopCommandBarViewModel.vb b/TopCommandBar/TopCommandBarViewModel.vb
index 2ebe39b..6b77970 100644
--- a/TopCommandBar/TopCommandBarViewModel.vb
+++ b/TopCommandBar/TopCommandBarViewModel.vb
@@ -3,6 +3,7 @@
 Namespace EgtCAM5
 
    Public Class TopCommandBarViewModel
+      Inherits ViewModelBase
 
 #Region "FIELDS & PROPERTIES"
 
@@ -47,11 +48,7 @@ Namespace EgtCAM5
             Return EgtMsg(MSG_TOPCOMMANDBAR + 7)
          End Get
       End Property
-      Public ReadOnly Property ExecToolTip As String
-         Get
-            Return EgtMsg(MSG_TOPCOMMANDBAR + 8)
-         End Get
-      End Property
+
 #End Region ' ToolTip
 
       ' Definizione comandi
@@ -62,9 +59,6 @@ Namespace EgtCAM5
       Private m_cmdInsert As ICommand
       Private m_cmdImport As ICommand
       Private m_cmdExport As ICommand
-      Private m_cmdExec As ICommand
-      Private m_cmdDoors As ICommand
-      Private m_cmdDMach As ICommand
 
 #End Region    ' Fields & Properties
 
@@ -290,96 +284,6 @@ Namespace EgtCAM5
 
 #End Region ' ExportCommand
 
-#Region "ExecCommand"
-
-      ''' <summary>
-      ''' Returns a command that do Exec.
-      ''' </summary>
-      Public ReadOnly Property ExecCommand As ICommand
-         Get
-            If m_cmdExec Is Nothing Then
-               m_cmdExec = New RelayCommand(AddressOf Exec, AddressOf CanExec)
-            End If
-            Return m_cmdExec
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the Exec.  This method is invoked by the ExecCommand.
-      ''' </summary>
-      Public Sub Exec(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.EXECPROJECT)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanExec(ByVal param As Object) As Boolean
-         Return Not m_ToolOrMachiningDbActive
-      End Function
-
-#End Region ' ExecCommand
-
-#Region "DoorsCommand"
-
-      ''' <summary>
-      ''' Returns a command that do Import.
-      ''' </summary>
-      Public ReadOnly Property DoorsCommand As ICommand
-         Get
-            If m_cmdDoors Is Nothing Then
-               m_cmdDoors = New RelayCommand(AddressOf Doors, AddressOf CanDoors)
-            End If
-            Return m_cmdDoors
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the Import.  This method is invoked by the ImportCommand.
-      ''' </summary>
-      Public Sub Doors(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.DOORSPROJECT)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanDoors(ByVal param As Object) As Boolean
-         Return Not m_ToolOrMachiningDbActive
-      End Function
-
-#End Region ' DoorsCommand
-
-#Region "DMachCommand"
-
-      ''' <summary>
-      ''' Returns a command that do Import.
-      ''' </summary>
-      Public ReadOnly Property DMachCommand As ICommand
-         Get
-            If m_cmdDMach Is Nothing Then
-               m_cmdDMach = New RelayCommand(AddressOf DMach, AddressOf CanDMach)
-            End If
-            Return m_cmdDMach
-         End Get
-      End Property
-
-      ''' <summary>
-      ''' Execute the Dmach.  This method is invoked by the DMachCommand.
-      ''' </summary>
-      Public Sub DMach(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.DMACHPROJECT)
-      End Sub
-
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanDMach(ByVal param As Object) As Boolean
-         Return Not m_ToolOrMachiningDbActive
-      End Function
-
-#End Region ' DMachCommand
-
 #End Region    ' Commands
 
    End Class
diff --git a/Utility.vb b/Utility.vb
index 1001041..2717921 100644
--- a/Utility.vb
+++ b/Utility.vb
@@ -100,6 +100,7 @@ Public Module Utility
    End Class
 
    Friend Sub WinPosToWindow(Window As Window, WinPos As WinPos)
+      Window.WindowStartupLocation = WindowStartupLocation.Manual
       Window.Top = WinPos.nTop
       Window.Left = WinPos.nLeft
       Window.Height = WinPos.nHeight