From 4b8f4e9679f18fd4023d00dcab210bbb38bda8fa Mon Sep 17 00:00:00 2001
From: Demetrio Cassarino <demetrio.cassarino@egalware.com>
Date: Thu, 25 Jul 2024 10:12:29 +0200
Subject: [PATCH] -aggiunto finestre personalizzate messagebox e colorpicker

---
 Application.xaml.vb                           |   3 +-
 CurrSetUp/CurrSetUpVM.vb                      |  10 +-
 EgtCAM5.vbproj                                |  26 ++
 EgtColorPicker/EgtColorPickerV.xaml           | 266 ++++++++++++++++
 EgtColorPicker/EgtColorPickerV.xaml.vb        |  68 ++++
 EgtMessageBox/EgtMessageBoxV.xaml             |  49 +++
 EgtMessageBox/EgtMessageBoxV.xaml.vb          | 109 +++++++
 MachGroupPanel/MyMachGroupPanelVM.vb          |  20 +-
 MachinePanel/MyMachinePanelVM.vb              |  18 +-
 .../InputExpander/InputExpanderV.xaml         |   2 +-
 .../ManageLayerExpanderVM.vb                  |   5 +-
 .../EstimationsExpander.vb                    |  15 +-
 .../MachiningTreeExpanderVM.vb                |   3 +-
 .../FixtureParameters/FixtureParametersVM.vb  |   3 +-
 .../MachiningParameterExpanderVM.vb           |   9 +-
 .../MachiningOpListBoxItem.vb                 |   6 +-
 .../OperationsListExpanderV.xaml              |   9 +-
 .../OperationsListExpanderVM.vb               |  33 +-
 .../SimulationExpanderVM.vb                   |  69 ++--
 OptionsWindow/OptionModule.vb                 |   3 +-
 OptionsWindow/OptionWindowVM.vb               | 301 ++++++++++--------
 Project/ProjectVM.vb                          |  73 +++--
 Resources/EgtMessageBox/Error.png             | Bin 0 -> 3263 bytes
 Resources/EgtMessageBox/Information.png       | Bin 0 -> 2689 bytes
 Resources/EgtMessageBox/Question.png          | Bin 0 -> 2950 bytes
 Resources/EgtMessageBox/Warning.png           | Bin 0 -> 2223 bytes
 SetUp/SetUpVM.vb                              |  17 +-
 SetUpDb/SetUpDbVM.vb                          |  18 +-
 Special-BeamWall/Beam.vb                      |   3 +-
 Special-BeamWall/Wall.vb                      |   3 +-
 Special-Doors/DoorPanelVM.vb                  |  16 +-
 Special-Doors/Doors.vb                        |  12 +-
 Special-Doors/MTableDbVM.vb                   |  25 +-
 Special-Doors/MTableListBox.vb                |   5 +-
 Special-Doors/TableUtility.vb                 |   3 +-
 Special-GunStock/GunStock.vb                  |  30 +-
 Special-GunStock/GunStockWndV.xaml.vb         |   6 +-
 ToolsDbWindow/MyToolDbWindowVM.vb             |   6 +-
 TopCommandBar/TopCommandBarVM.vb              |  24 +-
 Utility/Dictionary.xaml                       | 105 ++++++
 Utility/MachineModel.vb                       |   6 +-
 41 files changed, 1066 insertions(+), 313 deletions(-)
 create mode 100644 EgtColorPicker/EgtColorPickerV.xaml
 create mode 100644 EgtColorPicker/EgtColorPickerV.xaml.vb
 create mode 100644 EgtMessageBox/EgtMessageBoxV.xaml
 create mode 100644 EgtMessageBox/EgtMessageBoxV.xaml.vb
 create mode 100644 Resources/EgtMessageBox/Error.png
 create mode 100644 Resources/EgtMessageBox/Information.png
 create mode 100644 Resources/EgtMessageBox/Question.png
 create mode 100644 Resources/EgtMessageBox/Warning.png

diff --git a/Application.xaml.vb b/Application.xaml.vb
index 9a9a772..b12c40d 100644
--- a/Application.xaml.vb
+++ b/Application.xaml.vb
@@ -210,7 +210,8 @@ Class Application
    Friend Const GUNSTOCKMODIF As String = "GunStockModif"
 
    Private Sub Application_DispatcherUnhandledException(ByVal sender As System.Object, ByVal e As System.Windows.Threading.DispatcherUnhandledExceptionEventArgs)
-      MessageBox.Show(e.Exception.Message)
+      'MessageBox.Show(e.Exception.Message)
+      EgtMessageBoxV.Show(Application.Current.MainWindow, e.Exception.Message)
       e.Handled = True
    End Sub
 
diff --git a/CurrSetUp/CurrSetUpVM.vb b/CurrSetUp/CurrSetUpVM.vb
index 7570fc5..6267704 100644
--- a/CurrSetUp/CurrSetUpVM.vb
+++ b/CurrSetUp/CurrSetUpVM.vb
@@ -161,7 +161,8 @@ Public Class CurrSetUpVM
       sFilePath = SaveFileDialogViewVM.FileName
       If Not m_SetUpVM.Save(sFilePath) Then
          EgtOutLog("Error in setup saving: can't find the directory")
-         MessageBox.Show("Error in saving Setup.", "Error", MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show("Error in saving Setup.", "Error", MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, "Error in saving Setup.", "Error", MessageBoxButton.OK, MessageBoxImage.Error)
       End If
    End Sub
 
@@ -256,14 +257,15 @@ Public Class CurrSetUpVM
       ' Verifico se l'attrezzaggio è stato modificato
       If m_SetUpVM.IsAppliedSetUp() Then
          ' se modificato chiedo se salvarlo prima di uscire
-         If MessageBox.Show(EgtMsg(MSG_SETUP + 6), EgtMsg(MSG_SETUP + 2), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+         'If MessageBox.Show(EgtMsg(MSG_SETUP + 6), EgtMsg(MSG_SETUP + 2), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+         If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SETUP + 6), EgtMsg(MSG_SETUP + 2), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
             ' lo salvo
             Apply()
          End If
       End If
 
-      ' Resetto tutti i delegate usati
-      ExitToolAssociation.m_delIsModifiedSetUp = Nothing
+         ' Resetto tutti i delegate usati
+         ExitToolAssociation.m_delIsModifiedSetUp = Nothing
       ' Reset lua
       EgtLuaResetGlobVar("STU")
 
diff --git a/EgtCAM5.vbproj b/EgtCAM5.vbproj
index 2da8add..e089165 100644
--- a/EgtCAM5.vbproj
+++ b/EgtCAM5.vbproj
@@ -161,6 +161,12 @@
       <DependentUpon>CurrSetUpV.xaml</DependentUpon>
     </Compile>
     <Compile Include="CurrSetUp\CurrSetUpVM.vb" />
+    <Compile Include="EgtColorPicker\EgtColorPickerV.xaml.vb">
+      <DependentUpon>EgtColorPickerV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="EgtMessageBox\EgtMessageBoxV.xaml.vb">
+      <DependentUpon>EgtMessageBoxV.xaml</DependentUpon>
+    </Compile>
     <Compile Include="LeftTray\LeftTrayV.xaml.vb">
       <DependentUpon>LeftTrayV.xaml</DependentUpon>
     </Compile>
@@ -455,6 +461,14 @@
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
+    <Page Include="EgtColorPicker\EgtColorPickerV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
+    <Page Include="EgtMessageBox\EgtMessageBoxV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="EstimationsDetailsWnd\EstimationsDetailsWndV.xaml">
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
@@ -1034,6 +1048,18 @@
   <ItemGroup>
     <Resource Include="Resources\DrawPanel\StmMoveVertex.png" />
   </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtMessageBox\Error.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtMessageBox\Information.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtMessageBox\Question.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtMessageBox\Warning.png" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>
     <PostBuildEvent>IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\EgtCAM5\EgtCAM5R32.exe
diff --git a/EgtColorPicker/EgtColorPickerV.xaml b/EgtColorPicker/EgtColorPickerV.xaml
new file mode 100644
index 0000000..0ba6f8c
--- /dev/null
+++ b/EgtColorPicker/EgtColorPickerV.xaml
@@ -0,0 +1,266 @@
+<EgtWPFLib5:EgtCustomWindow x:Class="EgtColorPickerV"
+                            xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+                            xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+                            xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
+                            Title="{Binding sTitle}"
+                            WindowStartupLocation="CenterOwner"
+                            WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="32"
+                            IsMinimizable="False" ShowInTaskbar="False"
+                            Width="750" Height="450"
+                            CloseCommand="{Binding Close_Command,Mode=OneWay,UpdateSourceTrigger=PropertyChanged}">
+   
+   <Grid Margin="5,5,5,0">
+      <Grid.RowDefinitions>
+         <RowDefinition Height="1*"/>
+         <RowDefinition Height="Auto"/>
+      </Grid.RowDefinitions>
+      <Grid Margin="5,5,5,0">
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="1*"/>
+            <ColumnDefinition Width="1*"/>
+         </Grid.ColumnDefinitions>
+         <Grid Margin="5,5,5,0">
+            <Grid.RowDefinitions>
+               <RowDefinition Height="1*"/>
+            </Grid.RowDefinitions>
+            <TabControl>
+               <TabItem Header="{Binding BasicColor_Msg}">
+                  <Grid HorizontalAlignment="Center"
+                        VerticalAlignment="Center">
+                     <Grid.RowDefinitions>
+                        <RowDefinition Height="Auto"/>
+                        <RowDefinition Height="1*"/>
+                     </Grid.RowDefinitions>
+                     <ListBox ItemsSource="{Binding BasicColors}"
+                              SelectedItem="{Binding SelColor}"
+                              HorizontalAlignment="Center"
+                              BorderThickness="0">
+                        <ListBox.ItemsPanel>
+                           <ItemsPanelTemplate>
+                              <UniformGrid Columns="13"/>
+                           </ItemsPanelTemplate>
+                        </ListBox.ItemsPanel>
+                        <ListBox.ItemTemplate>
+                           <DataTemplate>
+                              <Rectangle Width="20"
+                                      Height="20"
+                                      Margin="2"
+                                      Stroke="Black" 
+                                      StrokeThickness="0.5"
+                                      Fill="{Binding Fill}"/>
+                           </DataTemplate>
+                        </ListBox.ItemTemplate>
+                        <ListBox.ItemContainerStyle>
+                           <Style TargetType="ListBoxItem">
+                              <Setter Property="Margin" Value="0"/>
+                              <Setter Property="Padding" Value="0"/>
+                           </Style>
+                        </ListBox.ItemContainerStyle>
+                     </ListBox>
+                  </Grid>
+               </TabItem>
+               <TabItem Header="{Binding ColorPicker_Msg}">
+                  <TabItem.Resources>
+                     <Style TargetType="{x:Type EgtWPFLib5:EgtHexItem}" BasedOn="{StaticResource EgtHexItem}">
+                        <Setter Property="BorderThickness" Value="1.5"/>
+                        <Setter Property="BorderBrush" Value="White"/>
+                     </Style>
+                  </TabItem.Resources>
+                  <EgtWPFLib5:EgtHexList ItemsSource="{Binding HexList}"
+                                         SelectedItem="{Binding sHexSelColor}"
+                                         Orientation="Vertical" 
+                                         Margin="2.5"
+                                         RowCount="13" 
+                                         ColumnCount="13"
+                                         Height="300"
+                                         Width="350"
+                                         Style="{StaticResource EgtHexList}">
+                     <EgtWPFLib5:EgtHexList.ItemTemplate>
+                        <DataTemplate/>
+                     </EgtWPFLib5:EgtHexList.ItemTemplate>
+                     <EgtWPFLib5:EgtHexList.ItemContainerStyle>
+                        <Style TargetType="EgtWPFLib5:EgtHexItem" BasedOn="{StaticResource EgtHexItem}">
+                           <Setter Property="Grid.Row" Value="{Binding nRow}"/>
+                           <Setter Property="Grid.Column" Value="{Binding nColumn}"/>
+                           <Setter Property="Background" Value="{Binding Background}"/>
+                        </Style>
+                     </EgtWPFLib5:EgtHexList.ItemContainerStyle>
+                  </EgtWPFLib5:EgtHexList>
+               </TabItem>
+               <TabItem Header="{Binding ColorPickerTheme_Msg}">
+                  <Grid HorizontalAlignment="Center"
+                        VerticalAlignment="Center">
+                     <Grid.RowDefinitions>
+                        <RowDefinition Height="Auto"/>
+                        <RowDefinition Height="1*"/>
+                     </Grid.RowDefinitions>
+                     <ListBox ItemsSource="{Binding BasicColorsTheme}"
+                              SelectedItem="{Binding SelColorTheme}"
+                              BorderThickness="0">
+                        <ListBox.ItemsPanel>
+                           <ItemsPanelTemplate>
+                              <UniformGrid Columns="13"/>
+                           </ItemsPanelTemplate>
+                        </ListBox.ItemsPanel>
+                        <ListBox.ItemTemplate>
+                           <DataTemplate>
+                              <Rectangle Width="20"
+                                         Height="20"
+                                         Margin="2"
+                                         Stroke="Black" 
+                                         StrokeThickness="0.5"
+                                         Fill="{Binding Fill}"/>
+                           </DataTemplate>
+                        </ListBox.ItemTemplate>
+                        <ListBox.ItemContainerStyle>
+                           <Style TargetType="ListBoxItem">
+                              <Setter Property="Margin" Value="0"/>
+                              <Setter Property="Padding" Value="0"/>
+                           </Style>
+                        </ListBox.ItemContainerStyle>
+                     </ListBox>
+                  </Grid>
+               </TabItem>
+            </TabControl>
+         </Grid>
+         <Grid Grid.Column="1"
+               Margin="5,0,0,0">
+            <Grid.RowDefinitions>
+               <RowDefinition Height="Auto"/>
+               <RowDefinition Height="Auto"/>
+               <RowDefinition Height="Auto"/>
+            </Grid.RowDefinitions>
+            <TextBlock Text="{Binding CustomColor_Msg}"
+                       Margin="5,18,5,10"
+                       Style="{StaticResource DialogWindow_TextBlock}"/>
+            <Grid Grid.Row="1">
+               <Grid.RowDefinitions>
+                  <RowDefinition Height="Auto"/>
+                  <RowDefinition Height="1*"/>
+               </Grid.RowDefinitions>
+               <ListBox ItemsSource="{Binding CustomColors}"
+                        SelectedItem="{Binding SelCustomColor}"
+                        HorizontalAlignment="Center"
+                        BorderThickness="0">
+                  <ListBox.ItemsPanel>
+                     <ItemsPanelTemplate>
+                        <UniformGrid Columns="13"/>
+                     </ItemsPanelTemplate>
+                  </ListBox.ItemsPanel>
+                  <ListBox.ItemTemplate>
+                     <DataTemplate>
+                        <Rectangle Width="20"
+                                   Height="20"
+                                   Margin="2"
+                                   Stroke="Black" 
+                                   StrokeThickness="0.5"
+                                   Fill="{Binding Fill}"/>
+                     </DataTemplate>
+                  </ListBox.ItemTemplate>
+                  <ListBox.ItemContainerStyle>
+                     <Style TargetType="ListBoxItem">
+                        <Setter Property="Margin" Value="0"/>
+                        <Setter Property="Padding" Value="0"/>
+                     </Style>
+                  </ListBox.ItemContainerStyle>
+               </ListBox>
+            </Grid>
+            <Grid Grid.Row="2"
+                  Margin="0,20,0,0">
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="Auto"/>
+                  <ColumnDefinition Width="1*"/>
+               </Grid.ColumnDefinitions>
+               <Grid Margin="0,10,5,0"
+                     HorizontalAlignment="Left">
+                  <Grid.RowDefinitions>
+                     <RowDefinition Height="1*" />
+                     <RowDefinition Height="Auto" />
+                  </Grid.RowDefinitions>
+                  <Rectangle Width="100" 
+                             Height="70" 
+                             Stroke="Black" 
+                             StrokeThickness="0.5"
+                             Fill="{Binding CurrColor}"/>
+                  <Button x:Name="SaveColor"
+                          Grid.Row="1"
+                          Margin="0,10,0,0"
+                          Content="{Binding AddCColor_Msg}"
+                          Command="{Binding SaveColor_Command}"  
+                          Style="{StaticResource LeftPanel_TextButton}"/>
+               </Grid>
+               <Grid Grid.Column="1">
+                  <Grid.ColumnDefinitions>
+                     <ColumnDefinition Width="1*"/>
+                     <ColumnDefinition Width="1*"/>
+                  </Grid.ColumnDefinitions>
+                  <Grid.RowDefinitions>
+                     <RowDefinition Height="1*"/>
+                     <RowDefinition Height="1*"/>
+                     <RowDefinition Height="1*"/>
+                     <RowDefinition Height="1*"/>
+                  </Grid.RowDefinitions>
+                  <TextBlock Text="{Binding Red_Msg}"
+                             Margin="0,10,5,0"
+                             HorizontalAlignment="Right"
+                             Style="{StaticResource DialogWindow_TextBlock}"/>
+                  <TextBox Grid.Column="1" 
+                           HorizontalAlignment="Right"
+                           Margin="0,10,5,0"
+                           IsReadOnly="False"
+                           Text="{Binding Red, UpdateSourceTrigger=PropertyChanged}"
+                           Style="{StaticResource ColorPicker_TextBox}"/>
+                  <TextBlock Grid.Row="1"
+                             Text="{Binding Green_Msg}"
+                             Margin="5,5,5,0"
+                             HorizontalAlignment="Right"
+                             Style="{StaticResource DialogWindow_TextBlock}"/>
+                  <TextBox Grid.Column="1"
+                           Grid.Row="1"
+                           HorizontalAlignment="Right"
+                           Margin="5,5,5,0"
+                           IsReadOnly="False"
+                           Text="{Binding Green, UpdateSourceTrigger=PropertyChanged}"
+                           Style="{StaticResource ColorPicker_TextBox}"/>
+                  <TextBlock Grid.Row="2"
+                             Text="{Binding Blu_Msg}"
+                             Margin="5,5,5,0"
+                             HorizontalAlignment="Right"
+                             Style="{StaticResource DialogWindow_TextBlock}"/>
+                  <TextBox Grid.Column="1"
+                           Grid.Row="2"
+                           HorizontalAlignment="Right"
+                           Margin="5,5,5,0"
+                           IsReadOnly="False"
+                           Text="{Binding Blue, UpdateSourceTrigger=PropertyChanged}"
+                           Style="{StaticResource ColorPicker_TextBox}"/>
+                  <TextBlock Grid.Row="3"
+                             Text="{Binding Hexadecimal_Msg}"
+                             Margin="5,5,5,0"
+                             HorizontalAlignment="Right"
+                             Style="{StaticResource DialogWindow_TextBlock}"/>
+                  <TextBox Grid.Column="1"
+                           Grid.Row="3"
+                           HorizontalAlignment="Right"
+                           Margin="5,5,5,0"
+                           Text="{Binding Hexadecimal}"
+                           Style="{StaticResource ColorPicker_TextBox}"/>
+               </Grid>
+            </Grid>
+         </Grid>
+      </Grid>
+      <UniformGrid Grid.Row="2"  
+                   Rows="1"
+                   Margin="10,10,10,0">
+         <Button IsDefault="True"
+                 Content="OK"
+                 Command="{Binding Ok_Command}"
+                 Margin="2.5,0,2.5,0"
+                 Style="{StaticResource RightPanel_HalfRound_Button}"/>
+         <Button Content="Cancel"
+                 Command="{Binding Cancel_Command}"
+                 Margin="2.5,0,2.5,0"
+                 Style="{StaticResource RightPanel_HalfRound_Button}"/>
+      </UniformGrid>
+   </Grid>
+</EgtWPFLib5:EgtCustomWindow>
diff --git a/EgtColorPicker/EgtColorPickerV.xaml.vb b/EgtColorPicker/EgtColorPickerV.xaml.vb
new file mode 100644
index 0000000..5a2703b
--- /dev/null
+++ b/EgtColorPicker/EgtColorPickerV.xaml.vb
@@ -0,0 +1,68 @@
+Imports System.Windows.Forms
+Imports EgtWPFLib5
+
+Public Class EgtColorPickerV
+
+#Region "FIELDS & PROPERTIES"
+
+   Private WithEvents m_EgtColorPickerVM As EgtColorPickerVM
+
+   Private Shadows DialogResult As DialogResult
+
+   Public Property CustomColors As Integer()
+      Get
+         Return m_EgtColorPickerVM.GetCustomColors()
+      End Get
+      Set(value As Integer())
+         m_EgtColorPickerVM.SetCustomColors(value)
+      End Set
+   End Property
+
+   Public Property Color As System.Drawing.Color
+      Get
+         Return System.Drawing.Color.FromArgb(255, m_EgtColorPickerVM.Red, m_EgtColorPickerVM.Green, m_EgtColorPickerVM.Blue)
+      End Get
+      Set(value As System.Drawing.Color)
+         m_EgtColorPickerVM.Red = value.R
+         m_EgtColorPickerVM.Green = value.G
+         m_EgtColorPickerVM.Blue = value.B
+      End Set
+   End Property
+
+#End Region    ' Fields & Properties
+
+#Region "CONTRUCTORS"
+
+   Sub New(Owner As Window, EtgColorPickerVM As EgtColorPickerVM)
+      MyBase.New(Owner)
+      InitializeComponent()
+      Me.DataContext = EtgColorPickerVM
+      ' Assegno al riferimento locale al VM il VM preso dal DataContext
+      m_EgtColorPickerVM = EtgColorPickerVM
+   End Sub
+
+#End Region    ' Constructors
+
+#Region "EVENTS"
+
+   Private Sub CloseWindow(DialogResult As MessageBoxResult) Handles m_EgtColorPickerVM.m_CloseWindow
+      Me.DialogResult = DialogResult
+      Me.Close()
+   End Sub
+
+#End Region     ' Events
+
+#Region "METHODS"
+
+   ''' <summary>
+   ''' Apre una finestra EgtColorPicker
+   ''' </summary>
+   ''' <returns></returns>
+   Public Overloads Function ShowDialog() As DialogResult
+      MyBase.ShowDialog()
+      Return Me.DialogResult
+   End Function
+
+#End Region    ' Methods
+
+End Class
\ No newline at end of file
diff --git a/EgtMessageBox/EgtMessageBoxV.xaml b/EgtMessageBox/EgtMessageBoxV.xaml
new file mode 100644
index 0000000..268ec87
--- /dev/null
+++ b/EgtMessageBox/EgtMessageBoxV.xaml
@@ -0,0 +1,49 @@
+<EgtWPFLib5:EgtCustomWindow x:Class="EgtMessageBoxV"
+                            xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+                            xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+                            xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
+                            Title="{Binding sTitle}"
+                            SizeToContent="WidthAndHeight"
+                            WindowStartupLocation="CenterOwner"
+                            WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="32"
+                            IsMinimizable="False" ShowInTaskbar="False"
+                            CloseCommand="{Binding Close_Command,Mode=OneWay,UpdateSourceTrigger=PropertyChanged}">
+   
+   <Grid Margin="2.5,2.5,2.5,0">
+      <Grid.RowDefinitions>
+         <RowDefinition Height="Auto"/>
+         <RowDefinition Height="Auto"/>
+      </Grid.RowDefinitions>
+      <Grid Margin="20,20,20,20">
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="Auto"/>
+            <ColumnDefinition Width="1*"/>
+         </Grid.ColumnDefinitions>
+         <Image Source="{Binding sIconSource}"
+                Margin="0,0,0,0"/>
+         <TextBlock Grid.Column="1"
+                    Text="{Binding sMessage}"
+                    Margin="5,0,5,0"
+                    Style="{StaticResource DialogWindow_TextBlock}"/>
+      </Grid>
+      <ItemsControl Grid.Row="1"
+                    ItemsSource="{Binding ButtonList}"
+                    HorizontalAlignment="Center">
+         <ItemsControl.ItemsPanel>
+            <ItemsPanelTemplate>
+               <UniformGrid Rows="1"/>
+            </ItemsPanelTemplate>
+         </ItemsControl.ItemsPanel>
+         <ItemsControl.ItemTemplate>
+            <DataTemplate>
+               <Button IsDefault="{Binding bIsDefault}"
+                       Content="{Binding sMessage}"
+                       Command="{Binding Command_Command}"
+                       Margin="2.5,0,2.5,0"
+                       Style="{StaticResource RightPanel_HalfRound_Button}"/>
+            </DataTemplate>
+         </ItemsControl.ItemTemplate>
+
+      </ItemsControl>
+   </Grid>
+</EgtWPFLib5:EgtCustomWindow>
diff --git a/EgtMessageBox/EgtMessageBoxV.xaml.vb b/EgtMessageBox/EgtMessageBoxV.xaml.vb
new file mode 100644
index 0000000..dea49a8
--- /dev/null
+++ b/EgtMessageBox/EgtMessageBoxV.xaml.vb
@@ -0,0 +1,109 @@
+Imports EgtWPFLib5
+
+Public Class EgtMessageBoxV
+
+#Region "FIELDS & PROPERTIES"
+
+   Private WithEvents m_EgtMessageBoxVM As EgtMessageBoxVM
+
+   Private Shadows DialogResult As MessageBoxResult
+
+#End Region    ' FIELDS & PROPERTIES
+
+#Region "CONTRUCTORS"
+
+   Sub New(Owner As Window, EgtMessageBoxVM As EgtMessageBoxVM)
+      MyBase.New(Owner)
+      ' This call is required by the designer.
+      InitializeComponent()
+      Me.DataContext = EgtMessageBoxVM
+      ' Assegno al riferimento locale al VM il VM preso dal DataContext
+      m_EgtMessageBoxVM = EgtMessageBoxVM
+   End Sub
+
+#End Region
+
+#Region "METHODS"
+
+   ''' <summary>
+   ''' Apre una EgtMessageBox con un messaggio che ritorna un risultato
+   ''' </summary>
+   ''' <param name="Owner">Finestra di appartenenza</param>
+   ''' <param name="sMessageBoxText">Stringa che specifica il messaggio da mostrare</param>
+   ''' <returns>Valore che specifica quale bottone e' stato premuto dall'utente</returns>
+   Public Overloads Shared Function Show(Owner As Window, sMessageBoxText As String) As MessageBoxResult
+      Dim NewMessagebox As New EgtMessageBoxV(Owner, New EgtMessageBoxVM(sMessageBoxText))
+      NewMessagebox.ShowDialog()
+      Return NewMessagebox.DialogResult
+   End Function
+
+   ''' <summary>
+   ''' Apre una EgtMessageBox con un titolo ed un messaggio che ritorna un risultato
+   ''' </summary>
+   ''' <param name="Owner">Finestra di appartenenza</param>
+   ''' <param name="sMessageBoxText">Stringa che specifica il messaggio da mostrare</param>
+   ''' <param name="sCaption">Stringa che specifica il titolo da mostrare</param>
+   ''' <returns>Valore che specifica quale bottone e' stato premuto dall'utente</returns>
+   Public Overloads Shared Function Show(Owner As Window, sMessageBoxText As String, sCaption As String) As MessageBoxResult
+      Dim NewMessagebox As New EgtMessageBoxV(Owner, New EgtMessageBoxVM(sMessageBoxText, sCaption))
+      NewMessagebox.ShowDialog()
+      Return NewMessagebox.DialogResult
+   End Function
+
+   ''' <summary>
+   ''' Apre una EgtMessageBox con un titolo ed un messaggio che ritorna un risultato
+   ''' </summary>
+   ''' <param name="Owner">Finestra di appartenenza</param>
+   ''' <param name="sMessageBoxText">Stringa che specifica il messaggio da mostrare</param>
+   ''' <param name="sCaption">Stringa che specifica il titolo da mostrare</param>
+   ''' <param name="Button">Valore che specifica quali bottoni mostrare</param>
+   ''' <returns>Valore che specifica quale bottone e' stato premuto dall'utente</returns>
+   Public Overloads Shared Function Show(Owner As Window, sMessageBoxText As String, sCaption As String, Button As MessageBoxButton) As MessageBoxResult
+      Dim NewMessagebox As New EgtMessageBoxV(Owner, New EgtMessageBoxVM(sMessageBoxText, sCaption, Button))
+      NewMessagebox.ShowDialog()
+      Return NewMessagebox.DialogResult
+   End Function
+
+   ''' <summary>
+   ''' Apre una EgtMessageBox con un titolo ed un messaggio che ritorna un risultato
+   ''' </summary>
+   ''' <param name="Owner">Finestra di appartenenza</param>
+   ''' <param name="sMessageBoxText">Stringa che specifica il messaggio da mostrare</param>
+   ''' <param name="sCaption">Stringa che specifica il titolo da mostrare</param>
+   ''' <param name="Button">Valore che specifica quali bottoni mostrare</param>
+   ''' <param name="Icon">Valore che specifica quale icona mostrare</param>
+   ''' <returns>Valore che specifica quale bottone e' stato premuto dall'utente</returns>
+   Public Overloads Shared Function Show(Owner As Window, sMessageBoxText As String, sCaption As String, Button As MessageBoxButton, Icon As MessageBoxImage) As MessageBoxResult
+      Dim NewMessagebox As New EgtMessageBoxV(Owner, New EgtMessageBoxVM(sMessageBoxText, sCaption, Button, Icon))
+      NewMessagebox.ShowDialog()
+      Return NewMessagebox.DialogResult
+   End Function
+
+   ''' <summary>
+   ''' Apre una EgtMessageBox con un titolo ed un messaggio che ritorna un risultato
+   ''' </summary>
+   ''' <param name="Owner">Finestra di appartenenza</param>
+   ''' <param name="sMessageBoxText">Stringa che specifica il messaggio da mostrare</param>
+   ''' <param name="sCaption">Stringa che specifica il titolo da mostrare</param>
+   ''' <param name="Button">Valore che specifica quali bottoni mostrare</param>
+   ''' <param name="Icon">Valore che specifica quale icona mostrare</param>
+   ''' <param name="DefaultResult">Valore che specifica il bottone di default</param>
+   ''' <returns>Valore che specifica quale bottone e' stato premuto dall'utente</returns>
+   Public Overloads Shared Function Show(Owner As Window, sMessageBoxText As String, sCaption As String, Button As MessageBoxButton, Icon As MessageBoxImage, DefaultResult As MessageBoxResult) As MessageBoxResult
+      Dim NewMessagebox As New EgtMessageBoxV(Owner, New EgtMessageBoxVM(sMessageBoxText, sCaption, Button, Icon, DefaultResult))
+      NewMessagebox.ShowDialog()
+      Return NewMessagebox.DialogResult
+   End Function
+
+#End Region    ' METHODS
+
+#Region "EVENTS"
+
+   Private Sub CloseWindow(DialogResult As MessageBoxResult) Handles m_EgtMessageBoxVM.m_CloseWindow
+      Me.DialogResult = DialogResult
+      Me.Close()
+   End Sub
+
+#End Region
+
+End Class
diff --git a/MachGroupPanel/MyMachGroupPanelVM.vb b/MachGroupPanel/MyMachGroupPanelVM.vb
index 7da36d0..e519452 100644
--- a/MachGroupPanel/MyMachGroupPanelVM.vb
+++ b/MachGroupPanel/MyMachGroupPanelVM.vb
@@ -68,7 +68,8 @@ Public Class MyMachGroupPanelVM
             ' se la lista gruppi è vuota creo un nuovo gruppo
             If MachGroupList.Count = 0 Then
                ' Vuoi creare un nuovo Gruppo di Lavoro con i pezzi selezionati ?    -   LAVORA
-               If MessageBox.Show(EgtMsg(5552), EgtMsg(5002), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+               'If MessageBox.Show(EgtMsg(5552), EgtMsg(5002), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+               If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5552), EgtMsg(5002), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
                   Return If(AddNewMachGroup(nGroupId, vPart), 0, 1)
                Else
                   Return -2
@@ -92,9 +93,10 @@ Public Class MyMachGroupPanelVM
             ' altrimenti creo il primo gruppo
          Else
             ' Vuoi creare un nuovo Gruppo di Lavoro con i pezzi selezionati ?    -   LAVORA
-            If MessageBox.Show(EgtMsg(5552), EgtMsg(5002), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+            'If MessageBox.Show(EgtMsg(5552), EgtMsg(5002), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+            If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5552), EgtMsg(5002), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
                Return If(AddNewMachGroup(nGroupId, vPart), 0, 1)
-         Else
+            Else
                Return -2
             End If
          End If
@@ -122,7 +124,8 @@ Public Class MyMachGroupPanelVM
       EgtLuaSetGlobStringVar("DISP.PARTS", sParts)
       If Not EgtLuaExecFile(sScriptPath) Then
          EgtOutLog("Error executing disposition init script " & sScriptPath)
-         MessageBox.Show(EgtMsg(MSG_DISPOSITIONERRORS + 2) & " " & sScriptPath, EgtMsg(MSG_DISPOSITIONERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_DISPOSITIONERRORS + 2) & " " & sScriptPath, EgtMsg(MSG_DISPOSITIONERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_DISPOSITIONERRORS + 2) & " " & sScriptPath, EgtMsg(MSG_DISPOSITIONERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          Return False
       End If
       Dim nErr As Integer = 999
@@ -299,7 +302,8 @@ Public Class MyMachGroupPanelVM
       If Not String.IsNullOrEmpty(sDefaultSetUpName) Then
          If Not EgtImportSetup(String.Empty) Then
             EgtOutLog("Error loading default setup " & sDefaultSetUpName)
-            MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 9) & " " & sDefaultSetUpName, EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+            'MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 9) & " " & sDefaultSetUpName, EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SETUPERRORS + 9) & " " & sDefaultSetUpName, EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          End If
       End If
    End Sub
@@ -366,7 +370,8 @@ Public Class MyMachGroupPanelVM
       Dim nSelectedMachGroupIndex As Integer = MachGroupList.IndexOf(SelectedMachGroup)
       If nSelectedMachGroupIndex = 0 And MachGroupList.Count = 1 Then
          ' chiedo conferma prima di cancellare il gruppo di lavorazione
-         Select Case MessageBox.Show(EgtMsg(MSG_MACHGROUP + 2), "", MessageBoxButton.YesNo, MessageBoxImage.Question)
+         'Select Case MessageBox.Show(EgtMsg(MSG_MACHGROUP + 2), "", MessageBoxButton.YesNo, MessageBoxImage.Question)
+         Select Case EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_MACHGROUP + 2), "", MessageBoxButton.YesNo, MessageBoxImage.Question)
             Case MessageBoxResult.Yes
                ' cancello il gruppo corrente
                EgtRemoveMachGroup(EgtGetMachGroupId(MachGroupList(nSelectedMachGroupIndex).Name))
@@ -379,7 +384,8 @@ Public Class MyMachGroupPanelVM
          End Select
       Else
          ' chiedo conferma prima di cancellare il gruppo di lavorazione
-         Select Case MessageBox.Show(EgtMsg(MSG_MACHGROUP + 2), "", MessageBoxButton.YesNo, MessageBoxImage.Question)
+         'Select Case MessageBox.Show(EgtMsg(MSG_MACHGROUP + 2), "", MessageBoxButton.YesNo, MessageBoxImage.Question)
+         Select Case EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_MACHGROUP + 2), "", MessageBoxButton.YesNo, MessageBoxImage.Question)
             Case MessageBoxResult.Yes
                Dim nNewInd As Integer = -1
                If nSelectedMachGroupIndex = 0 And MachGroupList.Count > 1 Then
diff --git a/MachinePanel/MyMachinePanelVM.vb b/MachinePanel/MyMachinePanelVM.vb
index bedf083..e3b0730 100644
--- a/MachinePanel/MyMachinePanelVM.vb
+++ b/MachinePanel/MyMachinePanelVM.vb
@@ -208,7 +208,8 @@ Public Class MyMachinePanelVM
       ' ricarico il database per intercettare eventuali aggiornamenti fatti da altre istanze del programma (se la cartella Machines è condivisa)
       If Not EgtTdbReload() Then
          EgtOutLog("Impossible reloading tool Db")
-         MessageBox.Show(EgtMsg(MSG_TOOLSERRORS + 30), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_TOOLSERRORS + 30), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_TOOLSERRORS + 30), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          Return
       End If
 
@@ -231,7 +232,8 @@ Public Class MyMachinePanelVM
       ' ricarico il database per intercettare eventuali aggiornamenti fatti da altre istanze del programma (se la cartella Machines è condivisa)
       If Not EgtTdbReload() Then
          EgtOutLog("Impossible reloading tool Db")
-         MessageBox.Show(EgtMsg(MSG_TOOLSERRORS + 30), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_TOOLSERRORS + 30), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_TOOLSERRORS + 30), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          Return
       End If
 
@@ -256,7 +258,8 @@ Public Class MyMachinePanelVM
       ' ricarico il database per intercettare eventuali aggiornamenti fatti da altre istanze del programma (se la cartella Machines è condivisa)
       If Not EgtMdbReload() Then
          EgtOutLog("Impossible reloading machining Db")
-         MessageBox.Show(EgtMsg(MSG_MACHININGSERRORS + 7), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_MACHININGSERRORS + 7), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_MACHININGSERRORS + 7), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          Return
       End If
       Dim MachDbWindowVM As New EgtWPFLib5.MachiningDbWindowVM(IniFile.m_sCurrMachIniFilePath, IniFile.m_ProjectSceneContext, "Wood", IniFile.m_nUserLevel > 9, True)
@@ -277,7 +280,8 @@ Public Class MyMachinePanelVM
       ' ricarico il database per intercettare eventuali aggiornamenti fatti da altre istanze del programma (se la cartella Machines è condivisa)
       If Not EgtMdbReload() Then
          EgtOutLog("Impossible reloading machining Db")
-         MessageBox.Show(EgtMsg(MSG_MACHININGSERRORS + 7), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_MACHININGSERRORS + 7), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_MACHININGSERRORS + 7), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          Return
       End If
       Dim MachDbWindowVM As New EgtWPFLib5.MachiningDbWindowVM(IniFile.m_sCurrMachIniFilePath, IniFile.m_ProjectSceneContext, "Wood", IniFile.m_nUserLevel > 9, True)
@@ -302,7 +306,8 @@ Public Class MyMachinePanelVM
       ' verifico che il file di configurazione attrezzaggio (lua) della macchina esista
       If Not File.Exists(IniFile.m_sCurrMachScriptsDirPath & "\" & SETUP_LUA) Then
          EgtOutLog("SetUp error: SetUp configuration file doesn't exist ")
-         MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 7), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 7), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SETUPERRORS + 7), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          Return
       End If
       ' carico Lua che contiene le funzioni per ottenere le posizioni valide dell'utensile selezionato,
@@ -321,7 +326,8 @@ Public Class MyMachinePanelVM
          EgtLuaGetGlobIntVar("STU.ERR", nErr)
          If nErr = 0 Then
             If EgtGetHeadExitCount(sHead) = 0 Then
-               MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 8), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+               'MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 8), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+               EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SETUPERRORS + 8), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
                Return
             End If
          End If
diff --git a/OptionPanel/DrawOptionPanel/InputExpander/InputExpanderV.xaml b/OptionPanel/DrawOptionPanel/InputExpander/InputExpanderV.xaml
index 38f4691..8a7bc32 100644
--- a/OptionPanel/DrawOptionPanel/InputExpander/InputExpanderV.xaml
+++ b/OptionPanel/DrawOptionPanel/InputExpander/InputExpanderV.xaml
@@ -17,7 +17,7 @@
          <TextBlock Text="{Binding TextBlock}"
                     Visibility="{Binding TextVisibility}" Margin="5,5,0,5"/>
          <TextBox x:Name="TextBoxFocus" Text="{Binding TextBox,UpdateSourceTrigger=PropertyChanged}"
-                  Visibility="{Binding TextVisibility}" Margin="5,0,5,5">
+                  Visibility="{Binding TextVisibility}" Margin="5,0,5,5" IsEnabled="True" Focusable="True">
             <TextBox.InputBindings>
                <KeyBinding Key="Enter" Command="{Binding DoneCommand}"/>
                <KeyBinding Key="S" Modifiers="Control" Command="{Binding ShowCommand}"/>
diff --git a/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderVM.vb b/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderVM.vb
index 98c9be0..6166412 100644
--- a/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderVM.vb
+++ b/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderVM.vb
@@ -479,9 +479,8 @@ Public Class ManageLayerExpanderVM
       ' Se è un pezzo con lavorazioni, devo chiedere conferma della cancellazione
       If EgtIsPart(RightClickedTreeItemId) And EgtExistsInfo(RightClickedTreeItemId, GDB_SI_LIST) Then
          ' Pezzo in lavorazione, vuoi cancellarlo lo stesso ? - Erase Confirm
-         If MessageBox.Show(EgtMsg(MSG_DRAWOPTION + 17), EgtMsg(MSG_DRAWOPTION + 16), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.No Then
-            Return
-         End If
+         'If MessageBox.Show(EgtMsg(MSG_DRAWOPTION + 17), EgtMsg(MSG_DRAWOPTION + 16), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.No Then Return
+         If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_DRAWOPTION + 17), EgtMsg(MSG_DRAWOPTION + 16), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.No Then Return
       End If
       ' Recupero Id vicino per prossimo selezionato in albero
       Dim nNewId As Integer = EgtGetNext(RightClickedTreeItemId)
diff --git a/OptionPanel/MachiningOptionPanel/EstimationsExpander/EstimationsExpander.vb b/OptionPanel/MachiningOptionPanel/EstimationsExpander/EstimationsExpander.vb
index 47e6726..3c8864b 100644
--- a/OptionPanel/MachiningOptionPanel/EstimationsExpander/EstimationsExpander.vb
+++ b/OptionPanel/MachiningOptionPanel/EstimationsExpander/EstimationsExpander.vb
@@ -54,7 +54,8 @@ Public Class EstimationsExpanderVM
       ' Verifico che il file esista
       If Not File.Exists(sEstFile) Then
          ' File delle stime non trovato
-         MessageBox.Show(EgtMsg(MSG_SIMULATION + 18), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.OK, MessageBoxImage.Warning)
+         'MessageBox.Show(EgtMsg(MSG_SIMULATION + 18), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.OK, MessageBoxImage.Warning)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SIMULATION + 18), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.OK, MessageBoxImage.Warning)
          Return
       End If
       ' Visualizzazione
@@ -114,7 +115,8 @@ Public Class EstimationsExpanderVM
       If bAskSave Then
          If String.IsNullOrEmpty(sCurrFilePath) OrElse EgtGetModified() Then
             ' Il progetto deve essere salvato prima di poter essere generato. Vuoi farlo ?
-            If MessageBox.Show(EgtMsg(MSG_SIMULATION + 31), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then
+            'If MessageBox.Show(EgtMsg(MSG_SIMULATION + 31), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then
+            If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SIMULATION + 31), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then
                ' Abbandono
                bOk = False
             Else
@@ -129,7 +131,8 @@ Public Class EstimationsExpanderVM
       Else
          If String.IsNullOrEmpty(sCurrFilePath) Then
             ' File delle stime non trovato
-            MessageBox.Show(EgtMsg(MSG_SIMULATION + 18), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.OK, MessageBoxImage.Warning)
+            'MessageBox.Show(EgtMsg(MSG_SIMULATION + 18), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.OK, MessageBoxImage.Warning)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SIMULATION + 18), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.OK, MessageBoxImage.Warning)
             bOk = False
          End If
       End If
@@ -179,9 +182,11 @@ Public Class EstimationsExpanderVM
          If EgtGetLastMachMgrErrorId() <> 0 Then
             Dim sErr As String = EgtGetLastMachMgrErrorString()
             sErr = sErr.Replace("Cnc", "Est")
-            MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            'MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
          Else
-            MessageBox.Show(EgtMsg(MSG_SIMULATION + 17), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
+            'MessageBox.Show(EgtMsg(MSG_SIMULATION + 17), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SIMULATION + 17), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
          End If
          bOk = False
       End If
diff --git a/OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderVM.vb b/OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderVM.vb
index 803e83a..0f339ed 100644
--- a/OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderVM.vb
+++ b/OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderVM.vb
@@ -85,7 +85,8 @@ Public Class MachiningTreeExpanderVM
          ' Se l'operazione non è andata a buon fine
          If MachiningId = GDB_ID.NULL Then
             ' Inserimento lavorazione non riuscito    ERRORE
-            MessageBox.Show(EgtMsg(MSG_OPERATION + 19), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+            'MessageBox.Show(EgtMsg(MSG_OPERATION + 19), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_OPERATION + 19), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
             Map.refOperationsListExpanderVM.CancelOperationCmd()
             Return
          End If
diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/FixtureParameters/FixtureParametersVM.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/FixtureParameters/FixtureParametersVM.vb
index 7afb3b8..6ebb942 100644
--- a/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/FixtureParameters/FixtureParametersVM.vb
+++ b/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/FixtureParameters/FixtureParametersVM.vb
@@ -136,7 +136,8 @@ Public Class FixtureParametersVM
          If Not PositionFixtureOnNearestHook(nAddedFixtureId) Then
             ' non ci sono punti liberi, quindi rimuovo la ventosa e segnalo
             EgtRemoveFixture(nAddedFixtureId)
-            MessageBox.Show("No free hook point!", "ERROR")
+            'MessageBox.Show("No free hook point!", "ERROR")
+            EgtMessageBoxV.Show(Application.Current.MainWindow, "No free hook point!", "ERROR")
             Return
          End If
       Else
diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/MachiningParameterExpanderVM.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/MachiningParameterExpanderVM.vb
index 2a3da48..eaffb93 100644
--- a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/MachiningParameterExpanderVM.vb
+++ b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/MachiningParameterExpanderVM.vb
@@ -352,7 +352,8 @@ Public Class MachiningParameterExpanderVM
                sErrorList += Environment.NewLine + " - " + m_CurrOperation.GetErrorString([property])
             End If
          Next [property]
-         MessageBox.Show(EgtMsg(5423) + sErrorList, EgtMsg(30009), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+         'MessageBox.Show(EgtMsg(5423) + sErrorList, EgtMsg(30009), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5423) + sErrorList, EgtMsg(30009), MessageBoxButton.OK, MessageBoxImage.Exclamation)
          Return
       End If
 
@@ -431,10 +432,12 @@ Public Class MachiningParameterExpanderVM
             Dim sInfo As String = String.Empty
             EgtGetOutstrokeInfo(sInfo)
             If Not String.IsNullOrEmpty(sInfo) Then sErr &= " " & sInfo
-            MessageBox.Show(sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            'MessageBox.Show(sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)
          Else
             ' Errore nel calcolo della lavorazione!
-            MessageBox.Show(EgtMsg(5345), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)
+            'MessageBox.Show(EgtMsg(5345), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5345), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)
          End If
       Else
          If EgtGetMachMgrWarningId(0) <> 0 Then
diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/OperationListBoxItem/MachiningOpListBoxItem.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/OperationListBoxItem/MachiningOpListBoxItem.vb
index 00ca556..87b3669 100644
--- a/OptionPanel/MachiningOptionPanel/OperationExpander/OperationListBoxItem/MachiningOpListBoxItem.vb
+++ b/OptionPanel/MachiningOptionPanel/OperationExpander/OperationListBoxItem/MachiningOpListBoxItem.vb
@@ -199,7 +199,8 @@ Public Class MachiningOpListBoxItem
       ' verifico che il nome non inizi con disp
       If m_ModifiedName.StartsWith("disp", StringComparison.InvariantCultureIgnoreCase) Then
          m_CloseModifyLostFocus = False
-         MessageBox.Show(EgtMsg(MSG_OPERATION + 21), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Warning)
+         'MessageBox.Show(EgtMsg(MSG_OPERATION + 21), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Warning)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_OPERATION + 21), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Warning)
          Return
       End If
       ' Imposto il nuovo nome
@@ -207,7 +208,8 @@ Public Class MachiningOpListBoxItem
          If Not EgtSetOperationName(Id, m_ModifiedName) Then
             m_Spy = False
             m_CloseModifyLostFocus = False
-            MessageBox.Show(EgtMsg(MSG_OPERATION + 22), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Warning)
+            'MessageBox.Show(EgtMsg(MSG_OPERATION + 22), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Warning)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_OPERATION + 22), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Warning)
             m_IsActive_ModifyName = True
             NotifyPropertyChanged(NameOf(ModifyName_Visibility))
             m_Spy = True
diff --git a/OptionPanel/MachiningOptionPanel/OperationsListExpander/OperationsListExpanderV.xaml b/OptionPanel/MachiningOptionPanel/OperationsListExpander/OperationsListExpanderV.xaml
index 54926bb..f8f283e 100644
--- a/OptionPanel/MachiningOptionPanel/OperationsListExpander/OperationsListExpanderV.xaml
+++ b/OptionPanel/MachiningOptionPanel/OperationsListExpander/OperationsListExpanderV.xaml
@@ -31,7 +31,7 @@
                                          Command="{Binding DataContext.OperationListDoubleClickCommand, RelativeSource={RelativeSource AncestorType={x:Type EgtCAM5:OperationsListExpanderV}}}"
                                          CommandParameter="{Binding Id}"/>
                         </Border.InputBindings>
-                        <Grid Style="{StaticResource LayoutRoot}">
+                        <Grid Style="{StaticResource LayoutRoot}" FocusManager.FocusedElement="{Binding ElementName=Box}">
                            <Grid.ColumnDefinitions>
                               <ColumnDefinition Width="Auto"/>
                               <ColumnDefinition Width="Auto"/>
@@ -44,10 +44,9 @@
                                       Visibility="{Binding Name_Visibility}" Margin="0,0,5,0"/>
                            <TextBox Grid.Column="1" Text="{Binding ModifiedName, UpdateSourceTrigger=PropertyChanged}"
                                     Width="150"
-                                    x:Name="Box" x:Uid="Box"
-                                    IsTabStop="False"
+                                    x:Name="Box" IsEnabled="True" Focusable="True" 
                                     Visibility="{Binding ModifyName_Visibility}" Margin="0,0,5,0">
-                              <TextBox.Style>
+                              <!--<TextBox.Style>
                                  <Style TargetType="{x:Type TextBox}">
                                     <Style.Triggers>
                                        <DataTrigger Binding="{Binding IsSelected}" Value="True">
@@ -55,7 +54,7 @@
                                        </DataTrigger>
                                     </Style.Triggers>
                                  </Style>
-                              </TextBox.Style>
+                              </TextBox.Style>-->
                               <TextBox.InputBindings>
                                  <KeyBinding Key="Enter" Command="{Binding ModifyNameEnterCommand}"/>
                                  <KeyBinding Key="Escape" Command="{Binding ModifyNameEscCommand}"/>
diff --git a/OptionPanel/MachiningOptionPanel/OperationsListExpander/OperationsListExpanderVM.vb b/OptionPanel/MachiningOptionPanel/OperationsListExpander/OperationsListExpanderVM.vb
index 6e5ea06..7229cc9 100644
--- a/OptionPanel/MachiningOptionPanel/OperationsListExpander/OperationsListExpanderVM.vb
+++ b/OptionPanel/MachiningOptionPanel/OperationsListExpander/OperationsListExpanderVM.vb
@@ -618,9 +618,11 @@ Public Class OperationsListExpanderVM
       ' In caso di errori, li segnalo
       If Not bOk Then
          If Not String.IsNullOrEmpty(sErr) Then
-            MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            'MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
          Else
-            MessageBox.Show(EgtMsg(MSG_SIMULATION + 6), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
+            'MessageBox.Show(EgtMsg(MSG_SIMULATION + 6), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SIMULATION + 6), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
          End If
       Else
          Map.refStatusBarVM.NotifyStatusOutput(EgtMsg(MSG_OPERATION + 11))
@@ -651,7 +653,8 @@ Public Class OperationsListExpanderVM
       ' verifico che il file di configurazione attrezzaggio (lua) della macchina esista
       If Not File.Exists(IniFile.m_sCurrMachScriptsDirPath & "\" & SETUP_LUA) Then
          EgtOutLog("SetUp error: SetUp configuration file doesn't exist ")
-         MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 7), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 7), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SETUPERRORS + 7), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          Return
       End If
       ' carico Lua che contiene le funzioni per ottenere le posizioni valide dell'utensile selezionato,
@@ -670,7 +673,8 @@ Public Class OperationsListExpanderVM
          EgtLuaGetGlobIntVar("STU.ERR", nErr)
          If nErr = 0 Then
             If EgtGetHeadExitCount(sHead) = 0 Then
-               MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 8), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+               'MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 8), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+               EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SETUPERRORS + 8), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
                Return
             End If
          End If
@@ -867,18 +871,25 @@ Public Class OperationsListExpanderVM
    ' verifico che il nome non sia già utilizzato
    Private Function NameVerifyer(Name As String) As Boolean
       If String.IsNullOrWhiteSpace(Name) Then
-         MessageBox.Show(EgtMsg(MSG_EGTSAVEFILEDIALOG + 8),
-                         EgtMsg(MSG_EGTSAVEFILEDIALOG + 7),
-                         MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_EGTSAVEFILEDIALOG + 8),
+         '                EgtMsg(MSG_EGTSAVEFILEDIALOG + 7),
+         '                MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_EGTSAVEFILEDIALOG + 8),
+                                                             EgtMsg(MSG_EGTSAVEFILEDIALOG + 7),
+                                                             MessageBoxButton.OK, MessageBoxImage.Error)
          Return False
       End If
       Dim TempName As String = Name
       EgtMdbGetMachiningNewName(TempName)
       If String.Compare(TempName, Name, True) = 0 Then Return True
-      MessageBox.Show(Name & " " &
-                      EgtMsg(MSG_EGTSAVEFILEDIALOG + 3),
-                      EgtMsg(MSG_EGTSAVEFILEDIALOG + 7),
-                      MessageBoxButton.OK, MessageBoxImage.Error)
+      'MessageBox.Show(Name & " " &
+      '                EgtMsg(MSG_EGTSAVEFILEDIALOG + 3),
+      '                EgtMsg(MSG_EGTSAVEFILEDIALOG + 7),
+      '                MessageBoxButton.OK, MessageBoxImage.Error)
+      EgtMessageBoxV.Show(Application.Current.MainWindow, Name & " " &
+                                                          EgtMsg(MSG_EGTSAVEFILEDIALOG + 3),
+                                                          EgtMsg(MSG_EGTSAVEFILEDIALOG + 7),
+                                                          MessageBoxButton.OK, MessageBoxImage.Error)
       Return False
    End Function
 
diff --git a/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderVM.vb b/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderVM.vb
index 2350564..c64c7ef 100644
--- a/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderVM.vb
+++ b/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderVM.vb
@@ -39,7 +39,7 @@ Public Class SimulationExpanderVM
       End Get
       Set(value As Boolean)
          m_bOnlySimulation = value
-         NotifyPropertyChanged("bOnlySimulation")
+         NotifyPropertyChanged(NameOf(bOnlySimulation))
       End Set
    End Property
 
@@ -102,12 +102,15 @@ Public Class SimulationExpanderVM
       If Not EgtGenerate(sCncFile, sInfo) Then
          Dim nErr = EgtGetLastMachMgrErrorId()
          If nErr = 1000 Then
-            MessageBox.Show(EgtMsg(5333), EgtMsg(5320), MessageBoxButton.OK, MessageBoxImage.Information)
+            'MessageBox.Show(EgtMsg(5333), EgtMsg(5320), MessageBoxButton.OK, MessageBoxImage.Information)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5333), EgtMsg(5320), MessageBoxButton.OK, MessageBoxImage.Information)
          ElseIf nErr <> 0 Then
             Dim sErr As String = EgtGetLastMachMgrErrorString()
-            MessageBox.Show(sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            'MessageBox.Show(sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)
          Else
-            MessageBox.Show(EgtMsg(5306), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)
+            'MessageBox.Show(EgtMsg(5306), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5306), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)
          End If
          bNcView = False
       Else
@@ -165,9 +168,9 @@ Public Class SimulationExpanderVM
          Map.refTopCommandBarVM.DrawIsEnabled = False
          Map.refOperationsListExpanderVM.OpersListViewIsEnabled = False
          Map.refOperationParametersExpanderVM.OperParamsViewIsEnabled = False
-         Map.refEstimationsExpanderVM.Estimation_IsEnabled =False
+         Map.refEstimationsExpanderVM.Estimation_IsEnabled = False
          Map.refMachGroupPanelVM.SetMachGroupState(False)
-         Map.refEstimationsExpanderVM.NotifyPropertyChanged("Estimation_IsEnabled")
+         Map.refEstimationsExpanderVM.NotifyPropertyChanged(NameOf(Map.refEstimationsExpanderVM.Estimation_IsEnabled))
       End If
       Return True
    End Function
@@ -196,7 +199,7 @@ Public Class SimulationExpanderVM
 
    Friend Function UpdateAllMachinings() As Boolean
       ' Se disabilitato, esco
-      If GetPrivateProfileInt( S_MACH, K_AUTOUPDATEALLMACHININGS, 1) = 0 Then Return True   
+      If GetPrivateProfileInt(S_MACH, K_AUTOUPDATEALLMACHININGS, 1) = 0 Then Return True
       ' Eseguo ricalcolo
       Dim bModified As Boolean = EgtGetModified()
       Dim sErr As String = String.Empty
@@ -204,9 +207,11 @@ Public Class SimulationExpanderVM
       ' In caso di errori, li segnalo
       If Not bOk Then
          If Not String.IsNullOrEmpty(sErr) Then
-            MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            'MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
          Else
-            MessageBox.Show(EgtMsg(MSG_SIMULATION + 6), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
+            'MessageBox.Show(EgtMsg(MSG_SIMULATION + 6), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SIMULATION + 6), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
          End If
       End If
       If Not bModified Then EgtResetModified()
@@ -226,9 +231,11 @@ Public Class SimulationExpanderVM
       If Not bOk Then
          If EgtGetLastMachMgrErrorId() <> 0 Then
             Dim sErr As String = EgtGetLastMachMgrErrorString()
-            MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     '.... - ERRORE
+            'MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     '.... - ERRORE
+            EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     '.... - ERRORE
          Else
-            MessageBox.Show(EgtMsg(MSG_MESSAGEBOX + 10), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)    'Errore sconosciuto - ERRORE
+            'MessageBox.Show(EgtMsg(MSG_MESSAGEBOX + 10), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)    'Errore sconosciuto - ERRORE
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_MESSAGEBOX + 10), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)    'Errore sconosciuto - ERRORE
          End If
       End If
       ' Imposto stato corrente
@@ -268,9 +275,11 @@ Public Class SimulationExpanderVM
       If Not EgtSimStart(False) Then
          If EgtGetLastMachMgrErrorId() <> 0 Then
             Dim sErr As String = EgtGetLastMachMgrErrorString()
-            MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     '.... - ERRORE
+            'MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     '.... - ERRORE
+            EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     '.... - ERRORE
          Else
-            MessageBox.Show(EgtMsg(MSG_MESSAGEBOX + 10), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)    'Errore sconosciuto - ERRORE
+            'MessageBox.Show(EgtMsg(MSG_MESSAGEBOX + 10), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)    'Errore sconosciuto - ERRORE
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_MESSAGEBOX + 10), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)    'Errore sconosciuto - ERRORE
          End If
          SetSimulationStatus(MCH_SIM_ST.UI_STOP)
       End If
@@ -291,7 +300,7 @@ Public Class SimulationExpanderVM
                   SetShowPlay(True)
                   NotifyPropertyChanged(NameOf(PlayPauseImage))
                End If
-            ' Se movimento con collisione
+               ' Se movimento con collisione
             ElseIf nMove = MCH_SIM.COLLISION Then
                If m_bStopOnNextCollision Then
                   ' Imposto stato Pausa
@@ -301,11 +310,12 @@ Public Class SimulationExpanderVM
                   SetShowPlay(True)
                   NotifyPropertyChanged(NameOf(PlayPauseImage))
                   ' Messaggio
-                  MessageBox.Show(EgtMsg(MSG_SIMULATION + 19), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.OK, MessageBoxImage.Warning)
+                  'MessageBox.Show(EgtMsg(MSG_MESSAGEBOX + 10), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)    'Errore sconosciuto - ERRORE
+                  EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SIMULATION + 19), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.OK, MessageBoxImage.Warning)
                Else
                   m_bStopOnNextCollision = True
                End If
-            ' Altrimenti movimento non riuscito
+               ' Altrimenti movimento non riuscito
             Else
                SetSimulationStatus(MCH_SIM_ST.UI_STOP)
                ' Aggiornamenti per bottone Play/Pause
@@ -321,15 +331,19 @@ Public Class SimulationExpanderVM
                   Case MCH_SIM.OUTSTROKE
                      Dim sInfo As String = String.Empty
                      EgtGetOutstrokeInfo(sInfo)
-                     MessageBox.Show(EgtMsg(MSG_SIMULATION + 2) & " " & sInfo, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)        'Extracorsa ...
+                     'MessageBox.Show(EgtMsg(MSG_SIMULATION + 2) & " " & sInfo, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)        'Extracorsa ...
+                     EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SIMULATION + 2) & " " & sInfo, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)        'Extracorsa ...
                   Case MCH_SIM.DIR_ERR
-                     MessageBox.Show(EgtMsg(MSG_SIMULATION + 3), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)         'Direzione utensile irraggiungibile
+                     'MessageBox.Show(EgtMsg(MSG_SIMULATION + 3), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)         'Direzione utensile irraggiungibile
+                     EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SIMULATION + 3), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)         'Direzione utensile irraggiungibile
                   Case Else
                      If EgtGetLastMachMgrErrorId() <> 0 Then
                         Dim sErr As String = EgtGetLastMachMgrErrorString()
-                        MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     '.... - ERRORE
+                        'MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     '.... - ERRORE
+                        EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     '.... - ERRORE
                      Else
-                        MessageBox.Show(EgtMsg(MSG_SIMULATION + 4), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)     'Errore - ERRORE
+                        'MessageBox.Show(EgtMsg(MSG_SIMULATION + 4), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)     'Errore - ERRORE
+                        EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SIMULATION + 4), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)     'Errore - ERRORE
                      End If
                End Select
             End If
@@ -366,7 +380,7 @@ Public Class SimulationExpanderVM
       End If
       Map.refEstimationsExpanderVM.NotifyPropertyChanged(NameOf(Map.refEstimationsExpanderVM.Estimation_IsEnabled))
       If IniFile.m_bSimulEndExitApp Then
-         refMainWindowVM.CloseApplication( Nothing)
+         refMainWindowVM.CloseApplication(Nothing)
       End If
    End Sub
 
@@ -399,7 +413,8 @@ Public Class SimulationExpanderVM
       If bAskSave Then
          If String.IsNullOrEmpty(sCurrFilePath) OrElse EgtGetModified() Then
             ' Il progetto deve essere salvato prima di poter essere generato. Vuoi farlo ?
-            If MessageBox.Show(EgtMsg(MSG_SIMULATION + 31), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then
+            'If MessageBox.Show(EgtMsg(MSG_SIMULATION + 31), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then
+            If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SIMULATION + 31), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then
                ' Abbandono
                Return False
             Else
@@ -413,11 +428,11 @@ Public Class SimulationExpanderVM
          End If
       End If
       sCncFile = ""
-      #If PLATFORM = "x64" Then
+#If PLATFORM = "x64" Then
          sInfo = "EgtCAM5 64bit ver." & Map.refMainWindowVM.Version() & " - " & sCurrFilePath
-      #Else
-         sInfo = "EgtCAM5 ver." & Map.refMainWindowVM.Version() & " - " & sCurrFilePath
-      #End If
+#Else
+      sInfo = "EgtCAM5 ver." & Map.refMainWindowVM.Version() & " - " & sCurrFilePath
+#End If
       If EgtGetInfo(EgtGetCurrMachGroup(), KEY_MCHGRP_NCNAME, sCncFile) AndAlso Not String.IsNullOrWhiteSpace(sCncFile) Then
          sCncFile = Path.GetDirectoryName(sCurrFilePath) & "\" & sCncFile
       Else
@@ -435,7 +450,7 @@ Public Class SimulationExpanderVM
       Return True
    End Function
 
-   Friend Sub SimulationExpander_Update_CncData( nFlag As Integer)
+   Friend Sub SimulationExpander_Update_CncData(nFlag As Integer)
       If Simulation_IsExpanded Then
          ShowCncData()
          ' Se fermo per Collisione rilevata da script Lua
diff --git a/OptionsWindow/OptionModule.vb b/OptionsWindow/OptionModule.vb
index f29421e..969abe5 100644
--- a/OptionsWindow/OptionModule.vb
+++ b/OptionsWindow/OptionModule.vb
@@ -80,7 +80,8 @@ Friend Module OptionModule
       End While
       If nIndex = 1 Then
          EgtOutLog("Error missing languages section in Config.ini")
-         MessageBox.Show("Error : missing languages informations", "EgtCAM5", MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show("Error : missing languages informations", "EgtCAM5", MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, "Error : missing languages informations", "EgtCAM5", MessageBoxButton.OK, MessageBoxImage.Error)
          End
       End If
       ' Inizializzo la lingua corrente
diff --git a/OptionsWindow/OptionWindowVM.vb b/OptionsWindow/OptionWindowVM.vb
index 92ea71f..6ec7b6b 100644
--- a/OptionsWindow/OptionWindowVM.vb
+++ b/OptionsWindow/OptionWindowVM.vb
@@ -2,6 +2,7 @@
 Imports System.Collections.ObjectModel
 Imports System.IO
 Imports EgtUILib
+Imports EgtWPFLib5
 
 Public Class OptionWindowVM
    Inherits VMBase
@@ -257,8 +258,8 @@ Public Class OptionWindowVM
       End Get
       Set(value As Boolean)
          OptionModule.m_bThickLine = value
-         WritePrivateProfileString(S_SCENE, K_LINEWIDTH, If( value, "2", "1"))
-         EgtSetLineAttribs( If( value, 2, 1))
+         WritePrivateProfileString(S_SCENE, K_LINEWIDTH, If(value, "2", "1"))
+         EgtSetLineAttribs(If(value, 2, 1))
       End Set
    End Property
 
@@ -578,7 +579,7 @@ Public Class OptionWindowVM
       End Get
       Set(value As Boolean)
          OptionModule.m_bSpecialOn = value
-         WritePrivateProfileString(S_SPECIAL, K_SPECIALENABLE, If( value, "1", "0"))
+         WritePrivateProfileString(S_SPECIAL, K_SPECIALENABLE, If(value, "1", "0"))
       End Set
    End Property
 
@@ -598,7 +599,7 @@ Public Class OptionWindowVM
       End Get
       Set(value As Boolean)
          OptionModule.m_bBeamOn = value
-         WritePrivateProfileString(S_BEAM, K_BEAMENABLE, If( value, "1", "0"))
+         WritePrivateProfileString(S_BEAM, K_BEAMENABLE, If(value, "1", "0"))
       End Set
    End Property
 
@@ -618,7 +619,7 @@ Public Class OptionWindowVM
       End Get
       Set(value As Boolean)
          OptionModule.m_bWallOn = value
-         WritePrivateProfileString(S_WALL, K_WALLENABLE, If( value, "1", "0"))
+         WritePrivateProfileString(S_WALL, K_WALLENABLE, If(value, "1", "0"))
       End Set
    End Property
 
@@ -633,7 +634,7 @@ Public Class OptionWindowVM
       End Get
       Set(value As Boolean)
          OptionModule.m_bDoorsOn = value
-         WritePrivateProfileString(S_DOORS, K_DDFENABLE, If( value, "1", "0"))
+         WritePrivateProfileString(S_DOORS, K_DDFENABLE, If(value, "1", "0"))
       End Set
    End Property
 
@@ -648,7 +649,7 @@ Public Class OptionWindowVM
       End Get
       Set(value As Boolean)
          OptionModule.m_bGunstockOn = value
-         WritePrivateProfileString(S_GUNSTOCK, K_GUNSTOCKENABLE, If( value, "1", "0"))
+         WritePrivateProfileString(S_GUNSTOCK, K_GUNSTOCKENABLE, If(value, "1", "0"))
       End Set
    End Property
 
@@ -706,17 +707,17 @@ Public Class OptionWindowVM
    End Property
    Public ReadOnly Property ThickLineMsg As String
       Get
-         Return EgtMsg( 6536)                     ' Linee spesse
+         Return EgtMsg(6536)                     ' Linee spesse
       End Get
    End Property
    Public ReadOnly Property SmoothTriMeshMsg As String
       Get
-         Return EgtMsg( 6518)                     ' Superfici smussate
+         Return EgtMsg(6518)                     ' Superfici smussate
       End Get
    End Property
    Public ReadOnly Property UpdateLicenceMsg As String
       Get
-         Return EgtMsg( 6553)                     ' Aggiorna licenza
+         Return EgtMsg(6553)                     ' Aggiorna licenza
       End Get
    End Property
 
@@ -1168,143 +1169,146 @@ Public Class OptionWindowVM
       Dim sMachDir As String = Path.Combine(IniFile.m_sMachinesRoot, sMachName)
       ' Preparo direttorio temporaneo
       Dim sTempDir As String = Path.Combine(IniFile.m_sMachinesRoot, "Temp")
-      If My.Computer.FileSystem.DirectoryExists( sTempDir) Then
-         My.Computer.FileSystem.DeleteDirectory( sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
+      If My.Computer.FileSystem.DirectoryExists(sTempDir) Then
+         My.Computer.FileSystem.DeleteDirectory(sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
       End If
-      My.Computer.FileSystem.CreateDirectory( sTempDir)
+      My.Computer.FileSystem.CreateDirectory(sTempDir)
       ' Unzip nel direttorio temporaneo
       Using zip As New Ionic.Zip.ZipFile(sMachZip)
-         zip.ExtractAll( sTempDir, Ionic.Zip.ExtractExistingFileAction.DoNotOverwrite)
+         zip.ExtractAll(sTempDir, Ionic.Zip.ExtractExistingFileAction.DoNotOverwrite)
       End Using
       ' Se non è una macchina segnalo il problema ed esco
-      If Not My.Computer.FileSystem.FileExists( Path.Combine( sTempDir, sMachName, sMachName & ".ini"))  Or
-         Not My.Computer.FileSystem.FileExists( Path.Combine( sTempDir, sMachName, sMachName & ".mlde")) Then
+      If Not My.Computer.FileSystem.FileExists(Path.Combine(sTempDir, sMachName, sMachName & ".ini")) Or
+         Not My.Computer.FileSystem.FileExists(Path.Combine(sTempDir, sMachName, sMachName & ".mlde")) Then
          ' Il file {0} non contiene una macchina  -  Avviso
          Dim sOut As String = String.Format(EgtMsg(MSG_OPTIONPAGE + 29), sMachZip)
-         MessageBox.Show(sOut, EgtMsg(MSG_MESSAGEBOX + 2), MessageBoxButton.OK, MessageBoxImage.Warning)
+         'MessageBox.Show(sOut, EgtMsg(MSG_MESSAGEBOX + 2), MessageBoxButton.OK, MessageBoxImage.Warning)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sOut, EgtMsg(MSG_MESSAGEBOX + 2), MessageBoxButton.OK, MessageBoxImage.Warning)
          ' Rimuovo il direttorio temporaneo ed esco
-         My.Computer.FileSystem.DeleteDirectory( sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
+         My.Computer.FileSystem.DeleteDirectory(sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
          Return
       End If
       ' Imposto data e ora correnti al file mlde della macchina
       Try
-         File.SetLastWriteTime( Path.Combine( sTempDir, sMachName, sMachName & ".mlde"), System.DateTime.Now)
+         File.SetLastWriteTime(Path.Combine(sTempDir, sMachName, sMachName & ".mlde"), System.DateTime.Now)
       Catch ex As Exception
       End Try
       ' Verifico esistenza di una macchina con lo stesso nome
-      Dim bOldExists As Boolean = My.Computer.FileSystem.DirectoryExists( sMachDir)
+      Dim bOldExists As Boolean = My.Computer.FileSystem.DirectoryExists(sMachDir)
       Dim bUpdate As Boolean = True
       If bOldExists Then
-         Dim MachBox As New MachineBox( Application.Current.MainWindow, sMachName)
-         Select MachBox.ShowDialog()
-         Case MessageBoxResult.Yes
-            bUpdate = False
-         Case MessageBoxResult.No
-            bUpdate = True
-         Case MessageBoxResult.Cancel
-            ' Rimuovo il direttorio temporaneo ed esco
-            My.Computer.FileSystem.DeleteDirectory( sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
-            Return
+         Dim MachBox As New MachineBox(Application.Current.MainWindow, sMachName)
+         Select Case MachBox.ShowDialog()
+            Case MessageBoxResult.Yes
+               bUpdate = False
+            Case MessageBoxResult.No
+               bUpdate = True
+            Case MessageBoxResult.Cancel
+               ' Rimuovo il direttorio temporaneo ed esco
+               My.Computer.FileSystem.DeleteDirectory(sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
+               Return
          End Select
          ' Faccio una copia di backup della macchina corrente
          Dim sBackupDir As String = sMachDir & ".old"
-         If My.Computer.FileSystem.DirectoryExists( sBackupDir) Then
-            My.Computer.FileSystem.DeleteDirectory( sBackupDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
+         If My.Computer.FileSystem.DirectoryExists(sBackupDir) Then
+            My.Computer.FileSystem.DeleteDirectory(sBackupDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
          End If
          Try
-            My.Computer.FileSystem.MoveDirectory( sMachDir, sBackupDir, True)
+            My.Computer.FileSystem.MoveDirectory(sMachDir, sBackupDir, True)
          Catch ex As Exception
             ' Ripristino lo stato originale ed esco
-            My.Computer.FileSystem.MoveDirectory( sBackupDir, sMachDir, True)
+            My.Computer.FileSystem.MoveDirectory(sBackupDir, sMachDir, True)
             ' L'aggiornamento della macchina "{0}" non è riuscito.
             Dim sKo As String = String.Format(EgtMsg(MSG_OPTIONPAGE + 35), sMachName)
-            EgtOutLog( sKo)
-            MessageBox.Show(sKo, EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK)
+            EgtOutLog(sKo)
+            'MessageBox.Show(sKo, EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, sKo, EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK)
             Return
          End Try
       End If
       ' Installo la macchina
-      My.Computer.FileSystem.MoveDirectory( Path.Combine( sTempDir, sMachName), sMachDir, True)
+      My.Computer.FileSystem.MoveDirectory(Path.Combine(sTempDir, sMachName), sMachDir, True)
       ' Se è un aggiornamento, recupero utensili, lavorazioni, attrezzaggi e dati per travi
       If bOldExists And bUpdate Then
          Dim sBackupDir As String = sMachDir & ".old"
-         If My.Computer.FileSystem.DirectoryExists( sBackupDir & "\Tools") Then
-            If My.Computer.FileSystem.DirectoryExists( sMachDir & "\Tools") Then
-                My.Computer.FileSystem.DeleteDirectory( sMachDir & "\Tools", FileIO.DeleteDirectoryOption.DeleteAllContents)
+         If My.Computer.FileSystem.DirectoryExists(sBackupDir & "\Tools") Then
+            If My.Computer.FileSystem.DirectoryExists(sMachDir & "\Tools") Then
+               My.Computer.FileSystem.DeleteDirectory(sMachDir & "\Tools", FileIO.DeleteDirectoryOption.DeleteAllContents)
             End If
-            My.Computer.FileSystem.CopyDirectory( sBackupDir & "\Tools", sMachDir & "\Tools", True)
+            My.Computer.FileSystem.CopyDirectory(sBackupDir & "\Tools", sMachDir & "\Tools", True)
          End If
-         If My.Computer.FileSystem.DirectoryExists( sBackupDir & "\Machinings") Then
-            If My.Computer.FileSystem.DirectoryExists( sMachDir & "\Machinings") Then
-                My.Computer.FileSystem.DeleteDirectory( sMachDir & "\Machinings", FileIO.DeleteDirectoryOption.DeleteAllContents)
+         If My.Computer.FileSystem.DirectoryExists(sBackupDir & "\Machinings") Then
+            If My.Computer.FileSystem.DirectoryExists(sMachDir & "\Machinings") Then
+               My.Computer.FileSystem.DeleteDirectory(sMachDir & "\Machinings", FileIO.DeleteDirectoryOption.DeleteAllContents)
             End If
-            My.Computer.FileSystem.CopyDirectory( sBackupDir & "\Machinings", sMachDir & "\Machinings", True)
+            My.Computer.FileSystem.CopyDirectory(sBackupDir & "\Machinings", sMachDir & "\Machinings", True)
          End If
-         If My.Computer.FileSystem.DirectoryExists( sBackupDir & "\SetUp") Then
-            If My.Computer.FileSystem.DirectoryExists( sMachDir & "\SetUp") Then
-                My.Computer.FileSystem.DeleteDirectory( sMachDir & "\SetUp", FileIO.DeleteDirectoryOption.DeleteAllContents)
+         If My.Computer.FileSystem.DirectoryExists(sBackupDir & "\SetUp") Then
+            If My.Computer.FileSystem.DirectoryExists(sMachDir & "\SetUp") Then
+               My.Computer.FileSystem.DeleteDirectory(sMachDir & "\SetUp", FileIO.DeleteDirectoryOption.DeleteAllContents)
             End If
-            My.Computer.FileSystem.CopyDirectory( sBackupDir & "\SetUp", sMachDir & "\SetUp", True)
+            My.Computer.FileSystem.CopyDirectory(sBackupDir & "\SetUp", sMachDir & "\SetUp", True)
          End If
-         If My.Computer.FileSystem.DirectoryExists( sBackupDir & "\Beam") Then
+         If My.Computer.FileSystem.DirectoryExists(sBackupDir & "\Beam") Then
             ' Flag per sovrascrivere vecchio file BeamData.lua con nuovo
             Dim bBeamDataExists As Boolean = False
             Const sBeamData As String = "\BeamData.lua"
             ' Flag per sovrascrivere vecchio file MachiningTypes.ini
             Dim bMchgTypesExists As Boolean = False
             Const sMchgTypes As String = "\MachiningTypes.ini"
-            If My.Computer.FileSystem.DirectoryExists( sMachDir & "\Beam") Then
-               If My.Computer.FileSystem.FileExists( sMachDir & "\Beam" & sBeamData) Then
+            If My.Computer.FileSystem.DirectoryExists(sMachDir & "\Beam") Then
+               If My.Computer.FileSystem.FileExists(sMachDir & "\Beam" & sBeamData) Then
                   bBeamDataExists = True
-                  My.Computer.FileSystem.MoveFile( sMachDir & "\Beam" & sBeamData, sMachDir & sBeamData, True) 
+                  My.Computer.FileSystem.MoveFile(sMachDir & "\Beam" & sBeamData, sMachDir & sBeamData, True)
                End If
-               If My.Computer.FileSystem.FileExists( sMachDir & "\Beam" & sMchgTypes) Then
+               If My.Computer.FileSystem.FileExists(sMachDir & "\Beam" & sMchgTypes) Then
                   bMchgTypesExists = True
-                  My.Computer.FileSystem.MoveFile( sMachDir & "\Beam" & sMchgTypes, sMachDir & sMchgTypes, True) 
+                  My.Computer.FileSystem.MoveFile(sMachDir & "\Beam" & sMchgTypes, sMachDir & sMchgTypes, True)
                End If
-               My.Computer.FileSystem.DeleteDirectory( sMachDir & "\Beam", FileIO.DeleteDirectoryOption.DeleteAllContents)
+               My.Computer.FileSystem.DeleteDirectory(sMachDir & "\Beam", FileIO.DeleteDirectoryOption.DeleteAllContents)
             End If
-            My.Computer.FileSystem.CopyDirectory( sBackupDir & "\Beam", sMachDir & "\Beam", True)
-            If bBeamDataExists Then My.Computer.FileSystem.MoveFile( sMachDir & sBeamData, sMachDir & "\Beam" & sBeamData, True)
-            If bMchgTypesExists Then My.Computer.FileSystem.MoveFile( sMachDir & sMchgTypes, sMachDir & "\Beam" & sMchgTypes, True)
+            My.Computer.FileSystem.CopyDirectory(sBackupDir & "\Beam", sMachDir & "\Beam", True)
+            If bBeamDataExists Then My.Computer.FileSystem.MoveFile(sMachDir & sBeamData, sMachDir & "\Beam" & sBeamData, True)
+            If bMchgTypesExists Then My.Computer.FileSystem.MoveFile(sMachDir & sMchgTypes, sMachDir & "\Beam" & sMchgTypes, True)
          End If
-         If My.Computer.FileSystem.DirectoryExists( sBackupDir & "\Wall") Then
+         If My.Computer.FileSystem.DirectoryExists(sBackupDir & "\Wall") Then
             ' Flag per sovrascrittura vecchio file WallData.lua con nuovo
             Dim bWallDataExists As Boolean = False
             Const sWallData As String = "\WallData.lua"
             ' Flag per sovrascrivere vecchio file MachiningTypes.ini
             Dim bMchgTypesExists As Boolean = False
             Const sMchgTypes As String = "\MachiningTypes.ini"
-            If My.Computer.FileSystem.DirectoryExists( sMachDir & "\Wall") Then
-               If My.Computer.FileSystem.FileExists( sMachDir & "\Wall" & sWallData) Then
+            If My.Computer.FileSystem.DirectoryExists(sMachDir & "\Wall") Then
+               If My.Computer.FileSystem.FileExists(sMachDir & "\Wall" & sWallData) Then
                   bWallDataExists = True
-                  My.Computer.FileSystem.MoveFile( sMachDir & "\Wall" & sWallData, sMachDir & sWallData, True) 
+                  My.Computer.FileSystem.MoveFile(sMachDir & "\Wall" & sWallData, sMachDir & sWallData, True)
                End If
-               If My.Computer.FileSystem.FileExists( sMachDir & "\Wall" & sMchgTypes) Then
+               If My.Computer.FileSystem.FileExists(sMachDir & "\Wall" & sMchgTypes) Then
                   bMchgTypesExists = True
-                  My.Computer.FileSystem.MoveFile( sMachDir & "\Wall" & sMchgTypes, sMachDir & sMchgTypes, True) 
+                  My.Computer.FileSystem.MoveFile(sMachDir & "\Wall" & sMchgTypes, sMachDir & sMchgTypes, True)
                End If
-               My.Computer.FileSystem.DeleteDirectory( sMachDir & "\Wall", FileIO.DeleteDirectoryOption.DeleteAllContents)
+               My.Computer.FileSystem.DeleteDirectory(sMachDir & "\Wall", FileIO.DeleteDirectoryOption.DeleteAllContents)
             End If
-            My.Computer.FileSystem.CopyDirectory( sBackupDir & "\Wall", sMachDir & "\Wall", True)
-            If bWallDataExists Then My.Computer.FileSystem.MoveFile( sMachDir & sWallData, sMachDir & "\Wall" & sWallData, True)
-            If bMchgTypesExists Then My.Computer.FileSystem.MoveFile( sMachDir & sMchgTypes, sMachDir & "\Wall" & sMchgTypes, True)
+            My.Computer.FileSystem.CopyDirectory(sBackupDir & "\Wall", sMachDir & "\Wall", True)
+            If bWallDataExists Then My.Computer.FileSystem.MoveFile(sMachDir & sWallData, sMachDir & "\Wall" & sWallData, True)
+            If bMchgTypesExists Then My.Computer.FileSystem.MoveFile(sMachDir & sMchgTypes, sMachDir & "\Wall" & sMchgTypes, True)
          End If
       End If
       'La macchina "{0}" è stata aggiornata con successo.
       Dim sOk As String = String.Format(EgtMsg(MSG_OPTIONPAGE + 30), sMachName)
-      EgtOutLog( sOk)
-      MessageBox.Show(sOk, EgtMsg(MSG_MESSAGEBOX + 3), MessageBoxButton.OK)
+      EgtOutLog(sOk)
+      'MessageBox.Show(sOk, EgtMsg(MSG_MESSAGEBOX + 3), MessageBoxButton.OK)
+      EgtMessageBoxV.Show(Application.Current.MainWindow, sOk, EgtMsg(MSG_MESSAGEBOX + 3), MessageBoxButton.OK)
       ' Rimuovo il direttorio temporaneo
-      My.Computer.FileSystem.DeleteDirectory( sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
+      My.Computer.FileSystem.DeleteDirectory(sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
       ' Aggiorno la lista delle macchina
       Map.refMachinePanelVM.InsertMachine(sMachDir)
    End Sub
 
+
+
 #End Region ' AddMachine
-
 #Region "ExportMachine"
-
    ''' <summary>
    ''' Returns a command that export a new machining.
    ''' </summary>
@@ -1344,7 +1348,7 @@ Public Class OptionWindowVM
             ' aggiungo i file della Macchina
             Dim sMachineDir As String = IniFile.m_sMachinesRoot & "\" & sCurrMachineName
             If Directory.Exists(sMachineDir) Then
-               zip.AddSelectedFiles( "name != *\.git\*.* and name != *.git*", sMachineDir, sCurrMachineName, True)
+               zip.AddSelectedFiles("name != *\.git\*.* and name != *.git*", sMachineDir, sCurrMachineName, True)
             End If
             ' salvo lo zip
             zip.Save()
@@ -1354,13 +1358,15 @@ Public Class OptionWindowVM
          ' L'esportazione della macchina "{0}" non è riuscita.
          Dim sKo As String = String.Format(EgtMsg(6551), sCurrMachineName)
          EgtOutLog(sKo)
-         MessageBox.Show(sKo, EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK)
-         return
+         'MessageBox.Show(sKo, EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sKo, EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK)
+         Return
       End Try
       'La macchina "{0}" è stata esportata con successo.
       Dim sOk As String = String.Format(EgtMsg(6552), sCurrMachineName)
       EgtOutLog(sOk)
-      MessageBox.Show(sOk, EgtMsg(MSG_MESSAGEBOX + 3), MessageBoxButton.OK)
+      'MessageBox.Show(sOk, EgtMsg(MSG_MESSAGEBOX + 3), MessageBoxButton.OK)
+      EgtMessageBoxV.Show(Application.Current.MainWindow, sOk, EgtMsg(MSG_MESSAGEBOX + 3), MessageBoxButton.OK)
    End Sub
 
 #End Region ' ExportMachine
@@ -1380,11 +1386,12 @@ Public Class OptionWindowVM
       Dim sExeVer As String = IniFile.GetProgramVersion()
       ' Verifico presenza di una precedente installazione del Beam
       Dim sBeamVer As String = ""
-      IniFile.GetSpecialLuaVersion( IniFile.m_sBeamDirPath, sBeamVer)
-      If String.IsNullOrEmpty( sBeamVer) Then
+      IniFile.GetSpecialLuaVersion(IniFile.m_sBeamDirPath, sBeamVer)
+      If String.IsNullOrEmpty(sBeamVer) Then
          ' Il modulo "{0}" non è stato trovato, impossibile aggiornare. - Avviso
-         Dim sOut As String = String.Format(EgtMsg(6555), "Beam") 
-         MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
+         Dim sOut As String = String.Format(EgtMsg(6555), "Beam")
+         'MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
          ' Esco
          Return
       End If
@@ -1392,78 +1399,83 @@ Public Class OptionWindowVM
       Dim BeamDlg As New Microsoft.Win32.OpenFileDialog() With {
          .DefaultExt = ".zip",
          .Filter = "Beam (.zip)|*.zip",
-         .CheckFileExists = True,
-         .ValidateNames = True
-      }
+.CheckFileExists = True,
+.ValidateNames = True
+}
       If BeamDlg.ShowDialog() <> True Then Return
       Dim sBeamZip As String = BeamDlg.FileName
       ' Preparo direttorio temporaneo
       Dim sTempDir As String = Path.Combine(IniFile.m_sTempDir, "Beam")
-      If My.Computer.FileSystem.DirectoryExists( sTempDir) Then
-         My.Computer.FileSystem.DeleteDirectory( sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
+      If My.Computer.FileSystem.DirectoryExists(sTempDir) Then
+         My.Computer.FileSystem.DeleteDirectory(sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
       End If
-      My.Computer.FileSystem.CreateDirectory( sTempDir)
+      My.Computer.FileSystem.CreateDirectory(sTempDir)
       ' Unzip nel direttorio temporaneo
       Using zip As New Ionic.Zip.ZipFile(sBeamZip)
-         zip.ExtractAll( sTempDir, Ionic.Zip.ExtractExistingFileAction.DoNotOverwrite)
+         zip.ExtractAll(sTempDir, Ionic.Zip.ExtractExistingFileAction.DoNotOverwrite)
       End Using
       ' Recupero i dati del nuovo Beam
       Dim sNewName = ""
       Dim sNewVer = ""
       Dim sNewMinExe = ""
-      IniFile.GetSpecialLuaData( sTempDir, sNewName, sNewVer, sNewMinExe)
+      IniFile.GetSpecialLuaData(sTempDir, sNewName, sNewVer, sNewMinExe)
       ' Verifico che sia veramente il Beam
       If String.Compare(sNewName, "Beam") <> 0 Then
          ' Il file zip non contiene il modulo "{0}". - Avviso
-         Dim sOut As String = String.Format(EgtMsg(6556), "Beam") 
-         MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
+         Dim sOut As String = String.Format(EgtMsg(6556), "Beam")
+         'MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
          ' Rimuovo il direttorio temporaneo ed esco
-         My.Computer.FileSystem.DeleteDirectory( sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
+         My.Computer.FileSystem.DeleteDirectory(sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
          Return
       End If
       ' Verifico la versione minima del programma
       If String.Compare(sExeVer, sNewMinExe) < 0 Then
          ' Il nuovo modulo "{0}" richiede un programma con versione minima {1}. - Avviso
          Dim sOut As String = String.Format(EgtMsg(6557), "Beam", sNewMinExe)
-         MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
+         'MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
          ' Rimuovo il direttorio temporaneo ed esco
-         My.Computer.FileSystem.DeleteDirectory( sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
+         My.Computer.FileSystem.DeleteDirectory(sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
          Return
       End If
       ' Verifico la versione del Beam e se più vecchia chiedo cosa fare
       If String.Compare(sNewVer, sBeamVer) < 0 Then
          ' La versione del nuovo modulo "{0}" è più vecchia dell'attuale. Vuoi sovrascrivere lo stesso ?
          Dim sOut As String = String.Format(EgtMsg(6558), "Beam")
-         if MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15003), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.No Then
+         'If MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15003), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.No Then
+         If EgtMessageBoxV.Show(Application.Current.MainWindow, sOut, EgtMsg(15003), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.No Then
             ' Rimuovo il direttorio temporaneo ed esco
-            My.Computer.FileSystem.DeleteDirectory( sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
+            My.Computer.FileSystem.DeleteDirectory(sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
             Return
          End If
       End If
       ' Faccio una copia di backup del Beam corrente
       Dim sBackupDir As String = IniFile.m_sBeamDirPath & ".old"
-      If My.Computer.FileSystem.DirectoryExists( sBackupDir) Then
-         My.Computer.FileSystem.DeleteDirectory( sBackupDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
+      If My.Computer.FileSystem.DirectoryExists(sBackupDir) Then
+         My.Computer.FileSystem.DeleteDirectory(sBackupDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
       End If
       Try
-         My.Computer.FileSystem.MoveDirectory( IniFile.m_sBeamDirPath, sBackupDir, True)
+         My.Computer.FileSystem.MoveDirectory(IniFile.m_sBeamDirPath, sBackupDir, True)
       Catch ex As Exception
          ' Ripristino lo stato originale ed esco
-         My.Computer.FileSystem.MoveDirectory( sBackupDir, IniFile.m_sBeamDirPath, True)
+         My.Computer.FileSystem.MoveDirectory(sBackupDir, IniFile.m_sBeamDirPath, True)
          ' L'aggiornamento del modulo "{0}" non è riuscito. - Errore
          Dim sOut As String = String.Format(EgtMsg(6559), "Beam")
-         EgtOutLog( sOut)
-         MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15001), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtOutLog(sOut)
+         'MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15001), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sOut, EgtMsg(15001), MessageBoxButton.OK, MessageBoxImage.Error)
          ' Rimuovo il direttorio temporaneo ed esco
-         My.Computer.FileSystem.DeleteDirectory( sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
+         My.Computer.FileSystem.DeleteDirectory(sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
          Return
       End Try
       ' Installo il Beam
-      My.Computer.FileSystem.MoveDirectory( sTempDir, IniFile.m_sBeamDirPath, True)
+      My.Computer.FileSystem.MoveDirectory(sTempDir, IniFile.m_sBeamDirPath, True)
       ' Il modulo "{0}" è stata aggiornato con successo. - Info
       Dim sOk As String = String.Format(EgtMsg(6560), "Beam")
-      EgtOutLog( sOk)
-      MessageBox.Show(Application.Current.MainWindow, sOk, EgtMsg(15003), MessageBoxButton.OK)
+      EgtOutLog(sOk)
+      'MessageBox.Show(Application.Current.MainWindow, sOk, EgtMsg(15003), MessageBoxButton.OK)
+      EgtMessageBoxV.Show(Application.Current.MainWindow, sOk, EgtMsg(15003), MessageBoxButton.OK)
    End Sub
 
 #End Region ' UpdateBeam
@@ -1478,17 +1490,17 @@ Public Class OptionWindowVM
          Return m_cmdUpdateWallCmd
       End Get
    End Property
-
    Public Sub UpdateWallCmd()
       ' Recupero la versione del programma in esecuzione
       Dim sExeVer As String = IniFile.GetProgramVersion()
       ' Verifico presenza di una precedente installazione del Wall
       Dim sWallVer As String = ""
-      IniFile.GetSpecialLuaVersion( IniFile.m_sWallDirPath, sWallVer)
-      If String.IsNullOrEmpty( sWallVer) Then
+      IniFile.GetSpecialLuaVersion(IniFile.m_sWallDirPath, sWallVer)
+      If String.IsNullOrEmpty(sWallVer) Then
          ' Il modulo "{0}" non è stato trovato, impossibile aggiornare. - Avviso
-         Dim sOut As String = String.Format(EgtMsg(6555), "Wall") 
-         MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
+         Dim sOut As String = String.Format(EgtMsg(6555), "Wall")
+         'MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
          ' Esco
          Return
       End If
@@ -1503,77 +1515,82 @@ Public Class OptionWindowVM
       Dim sWallZip As String = WallDlg.FileName
       ' Preparo direttorio temporaneo
       Dim sTempDir As String = Path.Combine(IniFile.m_sTempDir, "Wall")
-      If My.Computer.FileSystem.DirectoryExists( sTempDir) Then
-         My.Computer.FileSystem.DeleteDirectory( sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
+      If My.Computer.FileSystem.DirectoryExists(sTempDir) Then
+         My.Computer.FileSystem.DeleteDirectory(sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
       End If
-      My.Computer.FileSystem.CreateDirectory( sTempDir)
+      My.Computer.FileSystem.CreateDirectory(sTempDir)
       ' Unzip nel direttorio temporaneo
       Using zip As New Ionic.Zip.ZipFile(sWallZip)
-         zip.ExtractAll( sTempDir, Ionic.Zip.ExtractExistingFileAction.DoNotOverwrite)
+         zip.ExtractAll(sTempDir, Ionic.Zip.ExtractExistingFileAction.DoNotOverwrite)
       End Using
       ' Recupero i dati del nuovo Wall
       Dim sNewName = ""
       Dim sNewVer = ""
       Dim sNewMinExe = ""
-      IniFile.GetSpecialLuaData( sTempDir, sNewName, sNewVer, sNewMinExe)
+      IniFile.GetSpecialLuaData(sTempDir, sNewName, sNewVer, sNewMinExe)
       ' Verifico che sia veramente il Wall
       If String.Compare(sNewName, "Wall") <> 0 Then
          ' Il file zip non contiene il modulo "{0}". - Avviso
-         Dim sOut As String = String.Format(EgtMsg(6556), "Wall") 
-         MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
+         Dim sOut As String = String.Format(EgtMsg(6556), "Wall")
+         'MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
          ' Rimuovo il direttorio temporaneo ed esco
-         My.Computer.FileSystem.DeleteDirectory( sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
+         My.Computer.FileSystem.DeleteDirectory(sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
          Return
       End If
       ' Verifico la versione minima del programma
       If String.Compare(sExeVer, sNewMinExe) < 0 Then
          ' Il nuovo modulo "{0}" richiede un programma con versione minima {1}. - Avviso
          Dim sOut As String = String.Format(EgtMsg(6557), "Wall", sNewMinExe)
-         MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
+         'MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
          ' Rimuovo il direttorio temporaneo ed esco
-         My.Computer.FileSystem.DeleteDirectory( sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
+         My.Computer.FileSystem.DeleteDirectory(sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
          Return
       End If
       ' Verifico la versione del Wall e se più vecchia chiedo cosa fare
       If String.Compare(sNewVer, sWallVer) < 0 Then
          ' La versione del nuovo modulo "{0}" è più vecchia dell'attuale. Vuoi sovrascrivere lo stesso ?
          Dim sOut As String = String.Format(EgtMsg(6558), "Wall")
-         if MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15003), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.No Then
+         'If MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15003), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.No Then
+         If EgtMessageBoxV.Show(Application.Current.MainWindow, sOut, EgtMsg(15003), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.No Then
             ' Rimuovo il direttorio temporaneo ed esco
-            My.Computer.FileSystem.DeleteDirectory( sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
+            My.Computer.FileSystem.DeleteDirectory(sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
             Return
          End If
       End If
       ' Faccio una copia di backup del Wall corrente
       Dim sBackupDir As String = IniFile.m_sWallDirPath & ".old"
-      If My.Computer.FileSystem.DirectoryExists( sBackupDir) Then
-         My.Computer.FileSystem.DeleteDirectory( sBackupDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
+      If My.Computer.FileSystem.DirectoryExists(sBackupDir) Then
+         My.Computer.FileSystem.DeleteDirectory(sBackupDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
       End If
       Try
-         My.Computer.FileSystem.MoveDirectory( IniFile.m_sWallDirPath, sBackupDir, True)
+         My.Computer.FileSystem.MoveDirectory(IniFile.m_sWallDirPath, sBackupDir, True)
       Catch ex As Exception
          ' Ripristino lo stato originale ed esco
-         My.Computer.FileSystem.MoveDirectory( sBackupDir, IniFile.m_sWallDirPath, True)
+         My.Computer.FileSystem.MoveDirectory(sBackupDir, IniFile.m_sWallDirPath, True)
          ' L'aggiornamento del modulo "{0}" non è riuscito. - Errore
          Dim sOut As String = String.Format(EgtMsg(6559), "Wall")
-         EgtOutLog( sOut)
-         MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15001), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtOutLog(sOut)
+         'MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15001), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sOut, EgtMsg(15001), MessageBoxButton.OK, MessageBoxImage.Error)
          ' Rimuovo il direttorio temporaneo ed esco
-         My.Computer.FileSystem.DeleteDirectory( sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
+         My.Computer.FileSystem.DeleteDirectory(sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
          Return
       End Try
       ' Installo il Wall
-      My.Computer.FileSystem.MoveDirectory( sTempDir, IniFile.m_sWallDirPath, True)
+      My.Computer.FileSystem.MoveDirectory(sTempDir, IniFile.m_sWallDirPath, True)
       ' Il modulo "{0}" è stata aggiornato con successo. - Info
       Dim sOk As String = String.Format(EgtMsg(6560), "Wall")
-      EgtOutLog( sOk)
-      MessageBox.Show(Application.Current.MainWindow, sOk, EgtMsg(15003), MessageBoxButton.OK)
+      EgtOutLog(sOk)
+      'MessageBox.Show(Application.Current.MainWindow, sOk, EgtMsg(15003), MessageBoxButton.OK)
+      EgtMessageBoxV.Show(Application.Current.MainWindow, sOk, EgtMsg(15003), MessageBoxButton.OK)
    End Sub
 
+
+
 #End Region ' UpdateWall
-
 #Region "CloseOptionsCommand"
-
    ''' <summary>
    ''' Returns a command that remove the current selected machining.
    ''' </summary>
@@ -1616,10 +1633,14 @@ Public Class OptionWindowVM
          End If
       Next
       ' Creo dialogo colori
-      Dim ColorDlg As New System.Windows.Forms.ColorDialog
-      ColorDlg.FullOpen = True
-      ColorDlg.CustomColors = nCustomColors.ToArray()
-      ColorDlg.Color = Col.ToColor()
+      'Dim ColorDlg As New System.Windows.Forms.ColorDialog
+      'ColorDlg.FullOpen = True
+      'ColorDlg.CustomColors = nCustomColors.ToArray()
+      'ColorDlg.Color = Col.ToColor()
+      Dim ColorDlg As New EgtColorPickerV(Application.Current.MainWindow, New EgtColorPickerVM()) With {
+         .CustomColors = nCustomColors.ToArray(),
+         .Color = Col.ToColor()
+      }
       ' Visualizzo dialogo
       If ColorDlg.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return False
       ' Recupero colore scelto
diff --git a/Project/ProjectVM.vb b/Project/ProjectVM.vb
index bb222db..4a6c6e0 100644
--- a/Project/ProjectVM.vb
+++ b/Project/ProjectVM.vb
@@ -61,7 +61,7 @@ Public Class ProjectVM
 
 #Region "EGTUILIB FIELDS"
 
-    Private m_bCPlaneTypePos As Boolean
+   Private m_bCPlaneTypePos As Boolean
 
    ' Variabile per implementazione eventi
    Private m_InputText As String
@@ -231,29 +231,33 @@ Public Class ProjectVM
             ' Box di avviso chiave mancante : "Chiave non presente. \n Inserirla e riavviare il programma."  "Errore"
             Dim sText As String = EgtMsg(10102) & vbCrLf & EgtMsg(10103)
             Dim sTitle As String = EgtMsg(10101)
-            MessageBox.Show(sText, sTitle, MessageBoxButton.OK, MessageBoxImage.Error)
+            'MessageBox.Show(sText, sTitle, MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, sText, sTitle, MessageBoxButton.OK, MessageBoxImage.Error)
          Else
             EgtOutLog("NetDongle is full")
             ' Box di avviso slot chiave di rete occupato : "Chiave di Rete completamente occupata. \n Uscire dal programma su un altro PC."  "Errore"
             Dim sText As String = EgtMsg(10110) & vbCrLf & EgtMsg(10111)
             Dim sTitle As String = EgtMsg(10101)
-            MessageBox.Show(sText, sTitle, MessageBoxButton.OK, MessageBoxImage.Error)
+            'MessageBox.Show(sText, sTitle, MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, sText, sTitle, MessageBoxButton.OK, MessageBoxImage.Error)
          End If
-      ' Se altrimenti manca il collegamento con la chiave di rete
+         ' Se altrimenti manca il collegamento con la chiave di rete
       ElseIf IniFile.m_nKeyLevel = -9 Then
          EgtOutLog("Missing Link with Net Dongle")
          ' Box di avviso chiave mancante : "Collegamento con la Chiave di rete non riuscito. \n Verificare la connessione."  "Errore"
          Dim sText As String = EgtMsg(10108) & vbCrLf & EgtMsg(10109)
          Dim sTitle As String = EgtMsg(10101)
-         MessageBox.Show(sText, sTitle, MessageBoxButton.OK, MessageBoxImage.Error)
-      ' Altrimenti manca la licenza
+         'MessageBox.Show(sText, sTitle, MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sText, sTitle, MessageBoxButton.OK, MessageBoxImage.Error)
+         ' Altrimenti manca la licenza
       Else
          EgtOutLog("Problems with Licence")
          ' Box di avviso licenza con problemi : sKeyInfo \n "Programma senza licenza. \n Caricala e riavvia il programma."  "Errore"
          Dim sKeyInfo As String = "" : EgtGetKeyInfo(sKeyInfo)
          Dim sText As String = sKeyInfo & vbCrLf & EgtMsg(10105) & vbCrLf & EgtMsg(10106)
          Dim sTitle As String = EgtMsg(10101)
-         If MessageBox.Show(sText, sTitle, MessageBoxButton.OKCancel, MessageBoxImage.Error) = MessageBoxResult.OK Then
+         'If MessageBox.Show(sText, sTitle, MessageBoxButton.OKCancel, MessageBoxImage.Error) = MessageBoxResult.OK Then
+         If EgtMessageBoxV.Show(Application.Current.MainWindow, sText, sTitle, MessageBoxButton.OKCancel, MessageBoxImage.Error) = MessageBoxResult.OK Then
             ' Apro dialogo per richiesta file licenza
             Dim LicDlg As New Microsoft.Win32.OpenFileDialog() With {
                .DefaultExt = ".lic",
@@ -335,8 +339,9 @@ Public Class ProjectVM
       If Not m_Controller.SetCommandLog(bLuaReg, m_sTempDir, sCmdLogFile) Then
          EgtOutLog("Command log not started")
          If Environment.GetCommandLineArgs.Count() <= 1 Then
-            MessageBox.Show("Command log not started", "EgtCAM5 Warning",
-                            MessageBoxButton.OK, MessageBoxImage.Warning)
+            'MessageBox.Show("Command log not started", "EgtCAM5 Warning",
+            '                MessageBoxButton.OK, MessageBoxImage.Warning)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, "Command log not started", "EgtCAM5 Warning", MessageBoxButton.OK, MessageBoxImage.Warning)
          End If
       End If
       m_Controller.SetSurfTmTolerance(OptionModule.m_dGeometryTolerance)
@@ -478,7 +483,7 @@ Public Class ProjectVM
             End If
             ' Esecuzione
             bOk = ExecBeam(sFile, sMachine, nFlag, True)
-         ' altrimenti pareti
+            ' altrimenti pareti
          Else
             ' Verifica abilitazione elaborazione pareti
             If Not VerifyWall(sFile, sMachine, nFlag) Then
@@ -492,12 +497,12 @@ Public Class ProjectVM
          If nFlag = 0 Or nFlag = 3 Or nFlag = 4 Then
             Map.refMachinePanelVM.SaveCurrentMachine()
             Map.refMainWindowVM.CloseApplicationCmd()
-         ' Altrimenti se richiesta visualizzazione DB utensili
+            ' Altrimenti se richiesta visualizzazione DB utensili
          ElseIf nFlag = 11 And bOk Then
             MyMachinePanelVM.ToolDb()
             Map.refMachinePanelVM.SaveCurrentMachine()
             Map.refMainWindowVM.CloseApplicationCmd()
-         ' Altrimenti se richiesta visualizzazione DB lavorazioni
+            ' Altrimenti se richiesta visualizzazione DB lavorazioni
          ElseIf nFlag = 12 And bOk Then
             MyMachinePanelVM.MachDb()
             If bBeam Then
@@ -507,7 +512,7 @@ Public Class ProjectVM
             End If
             Map.refMachinePanelVM.SaveCurrentMachine()
             Map.refMainWindowVM.CloseApplicationCmd()
-         ' Altrimenti se errore
+            ' Altrimenti se errore
          ElseIf Not bOk Then
             EgtZoom(ZM.ALL)
          End If
@@ -819,9 +824,11 @@ Public Class ProjectVM
                For Index = 1 To Lines.Count - 1
                   If Not String.IsNullOrWhiteSpace(Lines(Index)) Then sErrMsg &= Lines(Index) & vbCrLf
                Next
-               MessageBox.Show(sErrMsg, Lines(0).ToUpper, MessageBoxButton.OK, MessageBoxImage.Error)
+               'MessageBox.Show(sErrMsg, Lines(0).ToUpper, MessageBoxButton.OK, MessageBoxImage.Error)
+               EgtMessageBoxV.Show(Application.Current.MainWindow, sErrMsg, Lines(0).ToUpper, MessageBoxButton.OK, MessageBoxImage.Error)
             Catch ex As Exception
-               MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 7))
+               'MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 7))
+               EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_DOORSERRORS + 7))
             End Try
          End If
       End If
@@ -857,9 +864,11 @@ Public Class ProjectVM
             For Index = 1 To Lines.Count - 1
                If Not String.IsNullOrWhiteSpace(Lines(Index)) Then sErrMsg &= Lines(Index) & vbCrLf
             Next
-            MessageBox.Show(sErrMsg, Lines(0).ToUpper, MessageBoxButton.OK, MessageBoxImage.Error)
+            'MessageBox.Show(sErrMsg, Lines(0).ToUpper, MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, sErrMsg, Lines(0).ToUpper, MessageBoxButton.OK, MessageBoxImage.Error)
          Catch ex As Exception
-            MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 7))
+            'MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 7))
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_DOORSERRORS + 7))
          End Try
       End If
    End Sub
@@ -870,11 +879,13 @@ Public Class ProjectVM
       If bOk Then
          ' Copia dei file terminata con successo ...
          Dim sMsg As String = EgtMsg(8216) & vbCrLf & sFilePath & vbCrLf & "->" & sDirDest
-         MessageBox.Show(sMsg, EgtMsg(8214), MessageBoxButton.OK, MessageBoxImage.Information)
+         'MessageBox.Show(sMsg, EgtMsg(8214), MessageBoxButton.OK, MessageBoxImage.Information)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sMsg, EgtMsg(8214), MessageBoxButton.OK, MessageBoxImage.Information)
       Else
          ' Errore nella copia dei file ...
          Dim sMsg As String = EgtMsg(8255) & vbCrLf & sFilePath & vbCrLf & "->" & sDirDest
-         MessageBox.Show(sMsg, EgtMsg(8251), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(sMsg, EgtMsg(8251), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sMsg, EgtMsg(8251), MessageBoxButton.OK, MessageBoxImage.Error)
       End If
    End Sub
 
@@ -1452,7 +1463,8 @@ Public Class ProjectVM
    Private Sub OnNewProject(ByVal sender As Object, ByVal bOk As Boolean) Handles m_Controller.OnNewProject
       EgtZoom(ZM.ALL)
       If Not bOk Then
-         MessageBox.Show(Application.Current.MainWindow, EgtMsg(10002), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)  ' Error on new file  - Error
+         'MessageBox.Show(Application.Current.MainWindow, EgtMsg(10002), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)  ' Error on new file  - Error
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(10002), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)  ' Error on new file  - Error
       End If
    End Sub
 
@@ -1473,7 +1485,8 @@ Public Class ProjectVM
          Else
             sMsg = EgtMsg(10009) & " '" & sFile & "'"            'Missing file
          End If
-         MessageBox.Show(Application.Current.MainWindow, sMsg, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)        'Error
+         'MessageBox.Show(Application.Current.MainWindow, sMsg, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)        'Error
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sMsg, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)        'Error
       End If
    End Sub
 
@@ -1501,7 +1514,8 @@ Public Class ProjectVM
       Else
          IniFile.m_MruFiles.Remove(sFile)
          Dim sMsg As String = EgtMsg(10004) & " '" & sFile & "'"            'Error saving file
-         MessageBox.Show(Application.Current.MainWindow, sMsg, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)     ' Error
+         'MessageBox.Show(Application.Current.MainWindow, sMsg, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)     ' Error
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sMsg, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)     ' Error
       End If
    End Sub
 
@@ -1515,7 +1529,8 @@ Public Class ProjectVM
       Else
          IniFile.m_MruFiles.Remove(sFile)
          Dim sMsg As String = EgtMsg(10004) & " '" & sFile & "'"            'Error saving file
-         MessageBox.Show(Application.Current.MainWindow, sMsg, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)     ' Error
+         'MessageBox.Show(Application.Current.MainWindow, sMsg, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)     ' Error
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sMsg, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)     ' Error
       End If
    End Sub
 
@@ -1536,7 +1551,8 @@ Public Class ProjectVM
          Map.refStatusBarVM.NotifyStatusProgress(0)
          Map.refStatusBarVM.NotifyStatusStop(True)
       Else
-         MessageBox.Show(Application.Current.MainWindow, EgtMsg(10005), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)   ' File type unknown  - Error
+         'MessageBox.Show(Application.Current.MainWindow, EgtMsg(10005), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)   ' File type unknown  - Error
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(10005), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)   ' File type unknown  - Error
       End If
    End Sub
 
@@ -1550,7 +1566,8 @@ Public Class ProjectVM
       ' Segnalo eventuale errore
       If Not bOk Then
          Dim sMsg As String = EgtMsg(10006) & " '" & sFile & "'"            'Error importing file
-         MessageBox.Show(Application.Current.MainWindow, sMsg, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)   ' Error
+         'MessageBox.Show(Application.Current.MainWindow, sMsg, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)   ' Error
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sMsg, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)   ' Error
       End If
    End Sub
 
@@ -1561,7 +1578,8 @@ Public Class ProjectVM
       WritePrivateProfileString(S_GENERAL, K_LASTEXPDIR, Path.GetDirectoryName(sFile))
       If Not bOk Then
          Dim sMsg As String = EgtMsg(10007) & " '" & sFile & "'"            'Error exporting file
-         MessageBox.Show(Application.Current.MainWindow, sMsg, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)   ' Error
+         'MessageBox.Show(Application.Current.MainWindow, sMsg, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)   ' Error
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sMsg, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)   ' Error
       End If
    End Sub
 
@@ -1589,7 +1607,8 @@ Public Class ProjectVM
                IniFile.m_MruScripts.Remove(sFile)
             End If
          End If
-         MessageBox.Show(Application.Current.MainWindow, sError, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)     ' Error
+         'MessageBox.Show(Application.Current.MainWindow, sError, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)     ' Error
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sError, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)     ' Error
       End If
       ' Disabilito progress e bottone stop
       Map.refStatusBarVM.NotifyStatusProgress(0)
diff --git a/Resources/EgtMessageBox/Error.png b/Resources/EgtMessageBox/Error.png
new file mode 100644
index 0000000000000000000000000000000000000000..4f6d82fb063911b6dfeb82390276d23ff0fbe052
GIT binary patch
literal 3263
zcmV;w3_$aVP)<h;3K|Lk000e1NJLTq001Tc001Qj1^@s6E~%RU00004XF*Lt006O%
z3;baP0000WV@Og>004R>004l5008;`004mK004C`008P>0026e000+ooVrmw00009
za7bBm000ic000ic0Tn1pfB*mh24YJ`L;(K){{a7>y{D4^000McNliru=mr-FC@TGW
z^*R6m03~!qSaf7zbY(hYa%Ew3WdJfTGBhnPHZ3wUR4_R@G%z|eF)J`IIxsLLWTx-{
z001R)MObuXVRU6WZEs|0W_bWIFfuePFg7hRGgL4+Iy5jkG%+hMFgh?WR5>0@000ZF
zNkl<ZSVygxX>eQB6~~YC<fnbH7O%2wMNS;MaZJcUmLY6u5>lWB)6$T%v@=Zlfqp5S
z(g1B?rc;<{J4`zaFda%ufI@&IWZcA_Gz-Ku3nU>VIN&Tci8tAjY{^=mq^I}#zgk?`
zu@e}2#&@1{b(h~e+dbC`nnBjr*Q=dI;}*3fwWLJx)RA-NUiq9TmH+u0$#Y8OLwbc`
zRWg&gc#7!dZA78`PgCS7u#Jls+YO@Fxk?b0G=#%+$z-A<L?4|Ah3+{vI_k?0``Ypp
z5pOOj*}2^1x~sOPhQ>xm=}1pc-$_}%>lLCe^1~*D%RjU7P*YO{uTt&5B^q6{_Toh<
zi$<wB7$lX|>P%=fYk8vffkYybAO4jEP#Po8x3Bbg?wsrKP+F3x0&q5+t~BZOwz`N8
zoFp2}56{XZ*rw)Yr%J0ma9c3AU|nx7sVgc-^XjW4oH|97fYjS;6@Xi>k>!8&3qm+Q
z?Yi;{BE40s-Fvggv!>Q=r?A;f_N`kf#$KG~$ze2_gyG@)>WK~=C-UZ}<-i_jX{qDY
z>Vvlj0uA5!@=MY(sP=YJuUSJHv~WiUmG||L$>AtV@caf7&+qMv#b)%4VtLAHHCdF(
z&ee0~+)`yU(zsqvwa-3FhNVl1Z)~L4C!bKc!9aF{!H^gnY@18eb&P0;&E+0!ZZ6gE
z{LwpnK2PhFE2OKcBE|OYq?k94GJ}J}S*@g7w~m7Q_mcx~HiyF=Q7Z2;s8pSO@%VU_
zU<TQ0HkTSDY2R&b_sTN0ngW2Tf94s|VEwe$OG<oKEnG;+&p)RM__0;5*Chr9+G>gR
zeMB_E&GUG++!_pS+z3tS=Fg|}OD_?*TqKW-keo`96bg|N6AjRu|L|cd#kh*HGHYC+
zxW~eA`z|IDfjrBkJZdo5tsJ-i_S)K|7JT;uV*b-lliJ}R(eKZ#8-c6Blw3mtWd;Vw
z4l`SlN$sW4(aQIU-d1La%1aXo(qe(kqD3UaDcQix#6+$kGSm33)M%*g`R6HKTT5k^
zF3|?9wzk<|*#BLNr8!HJm&f(`ay!o-yu;<XQ4fF-t(F=edyIIUj#97yTd%Ng29cRj
zsYt?}B+F!gbwsEI%V@cI4o5hu*Ke^R0-dmV25%$+kYX{C1%c#bGTYcfN|>bd=9_8o
z<Vn)Q>~qS?O^AYfs}+hv-O1$06IN@rUadaxZKrcV3FiCZKP`_wN<5zFu`y)A)Z}_h
zYcgP@<Ht$g-A!?5@I+S^wI`E1&l7cW=SN0{&31dl>u{_qjmN3_^l1{u$4OeSfaGa#
zO#Mo{p?$>)x^m_W@%{bOP+4j4%ksS~YW0AT<6d50RrM{xd}h8IA9;ijRFp=_$$}I^
zA!Ue&c-{H)B*0=Hc6QQhk;vX1M1O$ByxFMi_4$sOtk&?T-M-F>iIr#1QaTVI36VpX
zB(s)ZG{fMON-A5tn7)MLDq-gNRaN>>CUgI-c6(XI=gVqp>BA3G30@)%A1!D~Ld$;6
zWGMORr=-1nnbPSrbs?}`k4ATICwdY%-Hd56kM;Te$4wSXz-O~<uw!C5Hcep@s;|#!
ztq4wn*_ALuMN13yUARDL_|8fM%ov_5C9K%InN)xm;Y-ssMWRS?m`;Ppl(5g?Lx&jD
z&UcA^1B`PynrWH8FAz9kHkrIWtMzUNHg;gsBpg%;htC2PYYt{sVBxB!ChCX3eF2jw
z5m_tR+K9v4^fV}@DX53SJw2p>zbRnK58zX;MWb);&O!C$C~`6dj7jhK_$jl|*zYr&
z@2TK8g%zhjg27c+=QLLw5b#L_Hmd+QqMH^hUrs7K(<~L_$7CCWLJK0AHPE(7p`e3D
zk1|dDb5Hifq6=*AVwthJV6xWj-qfViZEKsD;9M|K-039!%9Yu$W{z7d3Ye{=q=ZC3
zO4EM>1Z!h39jXe_V%)(KC+N*cWZOQX-(g5^Zsb(CN@E4-4TU~4>-9az*sWE1J!gTF
zhv9R4X=zpi5;Qld6?_(9TGm(4Qo+&Ln9-pj(gI2csDC38--twB*`I^z%k6fx%nHT?
zaOaE~O*b66wc2P@nef&@<T(wZj%`>BGQDM?@%u2w>yY7*-)J9F%p1|@Uy<2=kL54t
zc9~hO3C5%^9PTOMxFaE*?(RynS!;yj2GMjl36yz_Olg2o<UbF>*K~+dEucC+`z-nQ
zX!N<`viv73JCIv_c2VY^*A%zeoZ=M<r3(I~;5dr2tPa0p#U9gO2stkVSk{6_rU68x
z7f=!S9CKnN%*Z2<TnYuNxdyX~UPrF0u^%@!Zm8zCj@CrNU>_c)acDwDe;C>thjx5O
zAzrjWM5rGiK{!7v)&#r&51&e)PXmoDtf}F26BBFdQ>l@ovW%+w+Hy^>hZ-AOD;0`e
zt&s>{2B;v5I`p&Dz@CNAg~lP%vuvMj0OQbDv<jHV!_OLPYLr4Scz3-ZjG<ir7*l4I
zS;2nT-26R2?YJ)(<SJ1DO(2;vP2u#P0#o?TAe8`7<$;PDgG(ag^YF_CR1!FgH+Tdg
z@*g79g)_^HV4GW7HdV{=TWx;7q6U5xg?S3vnGFo?o`sqTtN@q7%c)TY&1DHW5LnkB
z2*P1vcb%){DzMFq7X74JlD6HC)Zm6=$I&+vNbz^XCfN~v0ybt4DwuLQ7;DVL8N4J9
zxca&}!hydAaMA}Tsj<WqnF99Uk|kTJGnv1AAIWqsN|yxsiXjRh#h;O8$%D$Y*6k((
zHV@#)VF0tjL30dFgTm2`IjEFx1Dp!E4S)ZWNw5c&E&G`(oqq8Fl+KL^ceWwhc)EiZ
zz}S<SufD8|k^tL_l;N~ks20iB&(6bH;0pb$NYp~h?1f~ncXg8>=nmo<hb6O;1^dCW
zWk0V?rT(%JSE>bAlx<i5m<f!vG@2VgF|=J{W5Ex@;b)VnRE5W4aky|t7@GyI@SQ!`
zxvIsBxNz5`p`lexiG&$sI6?u|cGFEa%}J%+-Gs8G1-Xd%3){2+G#!ln#=x8?aRLk~
z6bkML1b+KPGWln<B(=vAiM6#xqr(O51+iW>Qj6e<!B}HOfevuhfa3-RRyY%hF*w}E
zN{QoIm%_;xB1tj`)@BoyE|@rNHW~)hj&OMFZNL8suPDBXZt;CVxN;zoSl=-?cs79C
zH4j%cwy}gZo3P3wg`};)MWpG58%Ry`BXpN2QAG}TaT#UV`g-RRJ6_7MKre%eMEu)*
zzO6n{d>!4<>;T9~K^WMXO5NGf-~Y)7%voPqnVoknI995|t`tPR#6>lRt`e?Bt-cU6
znc8Ant<8=4oL%E)G9_Eqh?3`Ac{%NlMn`sxjy@hrr%|S7Gs+Yh6UE4IDz#e^kFPE(
zDRH_nCkm}FfMQd!CyP=&OnC{nrH->_qi+%Y5f{}HTwgGlL{jVw+iZ6VdVLm7gSTUF
z1;1jVF`MZWHfT>IhTa((+8WJd-a$9ZC^JeBZ{C|uzh{WWR@phu<%Z_sFfS`A3;xBL
z34w9}*TFrfPls{UehOE&H!(etjmnX5c$|}@Ju#bYZPH+H)S)uqp;`vV%)nvtF)Z8;
zGwm20{8d7dcA}eQlxqqK?8I47++~l&mRn@GZVr5o9Zhho?Ad9-%U;BFanG4Ep%+m1
zqm=yzrcJQ9lX+}377L-kYZq*`J5nZ7c^&-2fJ~l*|8-$OTtqML92j^kB}wmLILjzs
zNib0862<qNk;oELCgX9VL@z<LVMGq=Md8@q-97dq(Xac7wqf|>zqqDke!n1uQ=-@|
znoPF{7E6_g?0f<d*pW<L+I9KzFGX2y$1s*rzOE#@Bx#o`5^2%K<MT|=))m~q_MAWO
z1Jsj4L~mdWbNWe{@iJm0vaR-bo<woDBoK=YedzVRhHfP0Z~X60{-+AX6J}Yy6*tx(
x?vmR<gNxEssIMYAG#04;Z_%K!wPz8c{{ljf8rqV4NKgO(002ovPDHLkV1ktJ4*viE

literal 0
HcmV?d00001

diff --git a/Resources/EgtMessageBox/Information.png b/Resources/EgtMessageBox/Information.png
new file mode 100644
index 0000000000000000000000000000000000000000..755d51b8c147906f05d51784e54bdac3a9be75d0
GIT binary patch
literal 2689
zcmV-{3V!v8P)<h;3K|Lk000e1NJLTq001Tc001Qj1^@s6E~%RU00004XF*Lt006O%
z3;baP0000WV@Og>004R>004l5008;`004mK004C`008P>0026e000+ooVrmw00009
za7bBm000ic000ic0Tn1pfB*mh24YJ`L;(K){{a7>y{D4^000McNliru=mroH0t-{z
zU1R_N03~!qSaf7zbY(hYa%Ew3WdJfTGBhnPHZ3tWR53U@FfuwZFe@-HIxsL6g}(j(
z001R)MObuXVRU6WZEs|0W_bWIFfuePFg7hQHdHY<IxsRiF)%AIFgh?WXV?Zp000Sa
zNkl<ZSV!%bYitzP701u)Joe>%c)i$O?Bx-#3B^rGMSwyQ<3J2e@}Wsc0!@RWd`MMQ
z?FSm6erX9(q^gPXsSl}<nzSlPs7e~qN`OjugcRxo2qrZz1F>BoUO(3MdY`lN>N)q$
z%&s30_*kh&do{B&=l<{SoO|cY9r(Z9r3v=&u5IT|%X21sveneoCFQc71TZ6}$!=v(
z^@ie=dRILq_U`KF(Am|yw7Uk|yyN6bwQM{ufZ6F)#3j+%S|Jehfh<dS*8+ruY&H++
zbQ<z`^{Q!EAJ#>sJ$v8i{D>>uncXqilRJ*CwhZNGexLGKGT8`C4SuMrRUjBpKv6^x
zJpu^WkPURhfP6uNq0u5-8_2+wYd4^n&mEuFApG(VuRXTkmb|TfCD_iLJ3T#x&R<B9
zv}5t2Cb%aVK%fA4L;(!L0?V>MKo!J7Fg)TP4+2V(2#V}s0}PGk;MC{CaIU8h0%CFZ
zPd0~lw70hp@)2gY+k(CD(?fMdBd~W)L*u%oi)tXz7y`?*5XfWz1mYnoltD%YC`$-N
z_Xv=H@#ytR2q{2sUm6Y^>x1mr;N`9Bf-k+ab^S>`(oDN0*w*bw<GSQM+|)exzP2SH
z2>QLC=>{8|LD>UizL@`<h{*1Z<tzp!iWNV)PS*kf8L~MQ{<8lfe0hCf<i$<FZQGuH
z^dJ+MW?Xfez5McNc`RH!);uq{rmZ!E3tME<Mgwplo-OK5a1Sl>Lo!Z_AK*sXfUaJZ
z9GRcTo?iT+w*Wq$glo`*-GBWYMp6TVuWqZ`vUY9zan`xYnEZ50hjMS$H#V(lSrA|Y
zsHy=5PN8Wx1M32TmdYl~ua{gXvgSGwlGx~;Y5O^i`WA{B0(;<@$G--0pg!^I57KX%
zneJA*yK6JRp4)L^jXxOq(Y(0|%T&2+a3GA54M2n0fVysif)BxTqsn36J@Vte1j+l-
zu~;hO)9i&O*0(@^+PC73cT+z$&EBxxo!Ja9-Oyf7Bw`Q=c`;MEE9eeFk+Te#7`X*k
zzEmM!;+2)GpqlW-AY}zhF7tJ=Rtbn&F0aDk1#_V7-X=KGo!xrzT<Q^9g4q<XXJ0wK
zwk8x^8w-1&Oc6VRGyoHH0Qr$}mC5U{uWJ%cUn#<wt3~+xr#Z+J47^kEbAhV#=vczQ
zzxB-|<g`F+|EKxQX6{sifuKzRL%A1gV^Q$o<E?2lg*^4tss(9)vSxycK2$!^lREtK
zd>&f?#_(Lg+U8`6Wo=qO4rr;QL492al1*_qeYx;pDy1*CQ7T~cBx3p>4fqg{Ix+~m
z*@7-4wi=%Y!T}LN0T0yHh^$=935yU7dO#9!{V^cBudTzUmabPo$){yu9Sn|X%@_KM
zD+dR=gT&*4Wum#ovMkT1g{xyWD$(%_aZnR$8L#%ww%5Y84Ka9OeGI<4E(%-Qqp$_r
za}P(MWv&+rC3=#p1FGm%gR1y$P1J|M5d32QkiN`c&NdK_3x+-|zCegATB<WVGTvN4
zX8^oEFr?xlS79P&uvZXoD999fpXz`(Ol4^}pk-VRLB9f$;)TKSa#AgO8cD$gvn)@8
zB+K*;=0ezMil7Zj*`jIMcVZ0QIXD8JUCDESDr3Po8g4+mIeJdksH}(>je=8^D;Tw!
zCDf6I3uc-It}gzFJA#fF6J(-XkQO$TFNrcVvy34;1;_o}tl5B5LFwFN$)L9bx_fb(
zR6`mrn8zcQ*poy+j+iaZj&$7?<O6VF%HVW!d@8<N!_l1z$_urQ?_os(LDzx3MyfJq
z4r!XkoSgZ0I@AB@pv(u4vw_jI*#oN5B@OD2|4XWdtxQk3j<+<@sANnst`!SeR-e!p
zJ8_um3{4rt9n==6GMo<AZ+bv%dL0eyOl3MVS;R_EhD4p5Q!Q(fG+eMYf5R1BSFfw=
z<x8FH=48kQbt7i?ZjmvBW&IpK7C;5I8kBY*H&PSemvv~4%Oi!HF-jUP*sfh|Wpp}H
z()iAl1lbfiVotLGc_#4umQ%@_8xXZwK&dqK_6@^54WiKymHSJECq)`A7#Y5|cjt3i
zHs^e&>NFmm1L}y=HS(Ko%!l=HK)AmXkONA!Z+K)9Qp4l0YH0v7WnIv9eV8<+fW7_N
zu_KzAIh!le)5c#-mFPH#16ssA8ddi)z6qwAhW872pY~+424o)v+?RcFt{)cG3vmD9
zz{T-`aJHkPqeL20zyx8JnTQCl<_iTZcDM^gW6`;yJoPkH-|K9I?OT$trY*w!s%_QM
zF#PbzCU|Du9OkPdyc3XflqCuJu8%<9e}>?R)io1d#d89))niLc1ta^-&)5IW2bsN@
zyve>1DIX-nr+|cc^!K-h;okW{h(~4KvC8TqGPEZBaNnXJ^JTBNs?2+^(&zFe`0&If
zcx1UBR<s5_!B^X1%obbtWV6(5fcFo4l=$<}^2eqaTNIBdObF+nRcA6u^uTx8>v3nn
zx77A!c2af9HjoFq(yaWj?@qi%AI6l${m1?d4dF7pvN?7Mzw~}JnN$C`apOk!{pRS*
zu($U7WA&jko_)FysgFm!n0k>#OpF9b>xZoR<Ai^7(0_hTFn%BZdZPbcMaJDk84jPk
z1QEXq+n<Wvj7P<HM#rqTHf?IZ&IE0{B^cRz9~@b~ugmy-P7BSCg=MJm``FY{#55QK
zqCr_U__=$H9r-y0MIXSak#YD}cOSGQ1o-~rksI-_v?rY@z1`W_d6AD;G3<7G>ppd4
z)$b1IulJA24=aivVqq`%y$X#?giL`%7>o@_aP*}v;m0Li&*qA7xi1ByV-vWhys-J9
z$azJC_tP2ky-k}sF7c738fku|ndXW4zx`9`2VIx+=Z7byW=Zzq`cfd^li7BKwk=eX
z2#ORbqvf&&6WJo9Ml(<-<YDn#0lxh}&FJz)zOIsL?#mXm0~<DMxM>eD!|n)-%rsB>
zulAH5Jk)JG-P5P8yO}l@7BopQaWjDVae;VA(D9E3A)f&Y8wLG=*1*uR1>OsorH?ZO
zIE+u`XHLDkmEAFzV+a@<?bpA4e!y5cFl>BdXk1^A$s2JjwD@%ll1~v#-1n=Am^9fG
zmxtmZ@e9MUda^n5tY%pk5om%d-QMmR%rUcfzqc5R#tRc>0$%|2x*<d`S@bD`*@B{G
vh~wG3HeA$&R4^DEU9n;X+s^!t8^C`7f<`#TsOhd200000NkvXXu0mjfCYkh2

literal 0
HcmV?d00001

diff --git a/Resources/EgtMessageBox/Question.png b/Resources/EgtMessageBox/Question.png
new file mode 100644
index 0000000000000000000000000000000000000000..84ced4a0f569c87f1841d500f4cc1a3964f17d81
GIT binary patch
literal 2950
zcmV;13wiX3P)<h;3K|Lk000e1NJLTq001Tc001Qj1^@s6E~%RU0004mX+uL$Nkc;*
zaB^>EX>4Tx04UFukv&MmKpe$iQ>7wRhju99kfAzR5EXHhC>Fs&X)CnqU~=gfG-*gu
zTpR`0f`cE6RR<SmT^(EnLGS~_*}+NCMN0f%QfLt>cyPHN@A4jZ?*O4uVVc!50cg5y
zrs9&A&8>=oR|F8jAbmqJvy4P~F@vt->mEM7-o<zp{x=5Hyu|>YNIb_3(<a^^p4qew
z&ilk+R+3fXbK-H64oLjSb;aX1&PA66o*6bXsd?fsu~_V2rGr_?)QG2vqpGG;zL51;
z<-EmNtJGNQocxBtyuOm=I?WNpv4jMY5TT%kGAghUqg5xxLW=gKF8*QHpCp$;t}+-o
z7Epx-+4Y0J!S8OZ!qlXf6qJD87svS+1p>Q3v+g+G$BxrH0sPOvmEQJO8^G)*>Gif2
zJpzWdfs5<5rtATiJ3!>gkWJZ@{4|9^0eC;7XUYMgTcCf<>#enq(+40!T`k`L2Zz8|
zk+Rpj+`F%{w?F@J`-AiYMg?+}b{@1N00009a7bBm000XS000XS0e@s)kpKVy24YJ`
zL;(K){{a7>y{D4^000McNliru=m!`M3MAb;v3>vm34=*QK~z{r-B){zTvZwWo%^2W
z&dkp4PP<FD?aI<!o^7$vR{TQ~(Lm4`it#}tHdGLrh8Rp#v_3*Y6chgeH9}%EN_Z4S
z3M~j}poJn(>C)%6+jcwM?d)@A=Xvj)d+#}ZXLcZkTG?*-!}y!rIWza(^PS)MzVH0b
zcksUo)@<hl{_y5@ciXNNwV~|gc4em5XQI0v4JWx}=z*dk5Zn%+&Tz&ipsA-rX6#sJ
zTkJsmmh}hOEw>b#X6A%B5wkDpxnA)4?T+hxRx4E!TFpfO58Pm2OBX?;GhpEugcU}h
z5kbb_`aUX-i+r_)n(Izz0p3i7BQIRGYSnh-fd__~rq79U65F4BJ+<gp4}V49@y53>
zIde6N<;Fm=hoUhkssJ-ouqEA4+A`2$NhqNx6w?4RHK@9QK-J(7N!#^MqW+Upc}(U@
z^;p1PT;9|DyOzfv-`X7RESyE`dCtwXKV1KPy->O%w0EeZa(EbpatW%!pc@KQRiR!)
zj2gu<z%%VYx}AunpoXJFNCTt$3K0{E+OVmp^uDG;5YZ{y!Ku+4CXb&)qVBzP&8IHC
zmp%NKy^R;ozz2xszI*eM<Vf}@({onXCu|gkr%)>t5H>XEmI+2-Vv2wQ@)i;GO&xYJ
zjz~)sh8YrEQJ7nI!To@|7lxJYK)AJ?yl5fdqA{AL(TuDRrd=Ng2i`^f=umxCU(a3f
ztuH;&q|w0p#HKcWJsvvn%3EQt+FPqyrP73Iy1AUG1(ePq6KW(xgvbMogVSXThP(!J
zwuVvbXh%U0qgZv2FBRd9O+z8iSmd=-I*p!XeQ4`h3{Jx-OleF?UWmo;#-SlNyI#Y}
zD|<G?|Gwk*O*%AI6WYO7?+V+6UeEEk>zh8e9YrBhlDQD%A^D5EB@^2gDh_gvSVR}$
zu8#HFGncO1Sqg5=9?L!@hE9sm)C{U+2f67I-WfcOZO?7TiMRGp8qmaqq$h3CSGkO9
z`z{7wz8w1oj{JuIa&y1rBJsY*Dr;MJMeNerx@LK$T6@JA&BxhHQ6(Of<T})NtT7D{
za2#VQiaM~SGyQDh%|kaeO*F7)S<h-?D)%I>);fm+;6$BahC<&(&%So+I)oN3AZ|2K
z@|+;!jB>VYM)3AyPh#0c$wwCcWB2XSPQznQ2%$2cFF+#?Xt~t|XLj9VG&@dHlQ|>j
zDTD%_+7VSp%rFpciS3mA&&0~Z$96}%GPf@ZX`;uJIVFiH$kQ`-dWvq)N+zNba?&yy
zF>+*>2#=3VUQ7QQ&T0_5?oSU|YTzZv9pJ8~RejeC(s7Gtl0aJmJQWixqC=s}iWuk$
z8|alutfM6RpM@`8x7*hhCq%D!Q4Q%#6e}|cL|WSbnk2dEJ!<ru8XDK6g`|_v%-$sa
z@=GsNRGV2N)3Jn?ODr&|Rtsf2vuSR$$mK#(nMN}sWrq@olWn%Umrvw(kMq!Tvj2w>
z+xFTrBN4WS%ruNx8dp>+Sea;tp6P%f;bkNvv(zXK6jF!$qg0B>Bx8FRqm@Nyu#?!l
zZnH7@opr`#rw8=D(Ici;ol<mY23KL~s&4YYRS^q01DhT=zDZF?Y5z0Ch7J12)Zi;Q
zRa<>Hltk~uIQlA8#8+J12xB9!q`t{G%6QRkF*r63bN4^def^r%$}b*yL)v+t*vEnF
zJ@<s{+QgQUqI}_$&~Wka5SEt82rnm6B)W1%lG@U!#7K^8n8-Ocg57T-k&53Rd-mn~
zW-Wb;#9rOFu`TTv|H^fB?R4G4lB37bR?5S;W(^UrNd8EAq;|bW%rr4xuEO27A2Cb&
zZR+_QcQ#EmAf0)^7}#{jC5!yR&Q^o14LLPje&{e##|KG$QzSLCV@OgmbkYyhdbFSB
za^tWE1`tbx?)xw)i3=t+boXtaS!fq`wzA+7h4$2reTQKV57R<%AsU{dm)?sD<ye`T
zslh=6M~|H9TAaBd_4JGP&p!MhE{NF4Z-3*qlv{lvqVP7aSc3V^0kG4fU>>bAS%H`#
z%B$I3Ly#PdRVt|NJqT^8yrt{L&#%(|@bvRdQ)gjbIkrOxt$)M1AGZeHkLsR_y6r+e
zl!aQZki`JPu0o_NsH;B>t7QRf(!Bi0D7;e>b~>53H@0=#LrqiX#Jq^*S1;a_^qpV(
zluw-3;W|3Fo`OyU5!Au$5?E&v`tmiXsu7Hx7)IQwzrC=(f4%bPAKz`7`LCE)DAigi
zgZwyxS_RCdT%r#*bRoAe$c;bnA!J=fh2{QzgQ#W4staG-dgEM4Nz60Hm`4>M6^o?c
zRO{3JI=jsVM3Gh?RfuGnN^DZ|pjri2)c}!pzu9?Cm?tsnCYeYNHR>0+Rr##3*~?3+
z0)-Sss>^Cr{mRX8{5T2N+%ZpLvxH_j(HGTbf;Qqt0Z5^whX7Twn3;l<kl7b$VVno%
zMNARIKn^A~szHuCMs<}EBQcFwjhn))0dzw0ZCW6Wm(CCKB1SYA=wM+`qtQVlPWKYJ
z0yAn*Dy2xxqli)oU{M}+g-x_5EQSMvRH)1y^OB44Pxfcx!E`^bRO3wHE#3@o^}?wL
zl}bL-m`|%hFweEQrZa=Xsd82>FTM0{z1z2+vnu&8=0)sG>^M=$c(o%jr+=}#2g!+_
zGUhZNT@dC)Y~rRBH&~Ixon9z@4G)=VQ&zJ@suc27$E$jUdiK;buT~1aWeuBM9lI`C
z|K%;pH-9kQ>^>))7cp6nPhORIs7-P2q$7{~4;HpyPYV=IOoK&R5J^N}Wk+Gq>D#9q
z9HV33M0<N~>6LvOlTUBk(lqt)V)V+cFNr0(a4v!<chZ*Ft%&@RHnA6)7*Gr`8f_7U
zP(;)eCP+=`h(nhKaexltJ3i4ZoS%KKuW9NdabBxZ2tNaz!J(76N)>6KM=(;dF{Am=
zH4@f(8TFtB*HBOktEgHkYKbtS-HYH-s3)Fz`KqR=kHmQq%l2OJ#89m5Z7bOd9*>~T
z1RZ)f$`sZDwFMH}0%=>p=P0@YMMt1KO~kWfP`!FRRH^){Y3d_!UfaZ@2anm8{p7(v
zYq^nHF&b~Jw8T>_nx;l6ULNI}PuHyG(uYVJWL>8cx)wGkGwI}4JC7V|95m*F3zCax
zet!3o<jL$xbKme9<O{2mAn4PAAgR~ubb@AOQ_+qZT6k-aT=@I$cV0i;>^3J{u#TOH
w{WpIu6)M!yhUW>Tv#rqi*j74v|6c+4H|Yo%8M#F3O8@`>07*qoM6N<$g3jHQAOHXW

literal 0
HcmV?d00001

diff --git a/Resources/EgtMessageBox/Warning.png b/Resources/EgtMessageBox/Warning.png
new file mode 100644
index 0000000000000000000000000000000000000000..1e72f684bdda4ea65a56f28ca3c26035cdcf7d31
GIT binary patch
literal 2223
zcmV;g2vGNlP)<h;3K|Lk000e1NJLTq001Tc001Qj1^@s6E~%RU0004mX+uL$Nkc;*
zaB^>EX>4Tx04UFukv&MmKpe$iQ>7wRhju99kfAzR5EXHhC>Fs&X)CnqU~=gfG-*gu
zTpR`0f`cE6RR<SmT^(EnLGS~_*}+NCMN0f%QfLt>cyPHN@A4jZ?*O4uVVc!50cg5y
zrs9&A&8>=oR|F8jAbmqJvy4P~F@vt->mEM7-o<zp{x=5Hyu|>YNIb_3(<a^^p4qew
z&ilk+R+3fXbK-H64oLjSb;aX1&PA66o*6bXsd?fsu~_V2rGr_?)QG2vqpGG;zL51;
z<-EmNtJGNQocxBtyuOm=I?WNpv4jMY5TT%kGAghUqg5xxLW=gKF8*QHpCp$;t}+-o
z7Epx-+4Y0J!S8OZ!qlXf6qJD87svS+1p>Q3v+g+G$BxrH0sPOvmEQJO8^G)*>Gif2
zJpzWdfs5<5rtATiJ3!>gkWJZ@{4|9^0eC;7XUYMgTcCf<>#enq(+40!T`k`L2Zz8|
zk+Rpj+`F%{w?F@J`-AiYMg?+}b{@1N00009a7bBm000XR000XR0j(pwbpQYW24YJ`
zL;(K){{a7>y{D4^000McNliru=m!`M4lK8e{73)*2CPX$K~z{r?UxH|R8<<s|L4Bv
zJ<}N+`VfNF@~Ggt>|#*_7SJHs-9#JIfLkIMqG8>{sI0LfJ|nX6u`jfUudJ?YcQID*
z#V%-q>)JLxvR14VLFmJ72ih5Crt`e#_}%GMLnw6Gb&bjLOHR(2^Z4%ne&2V`IfK*u
zUm}Fi?B@R*$*zlq+x7PXMnxHFes>h(F>&zVK{tglWd9x((cj>+o8JnSH%5eW?qQ7S
zRF2qPUqgaf&yL!So&c7+6y@_=!gZao=;^)o@R%t|*s0)c*WAaz>k*9uAsuE!?n)~2
z7x-r1&|yy*6QfQ3<KX*OT$D^WZ@=RyAJ%OxLxiNrCHV?%@cri+g^=xOV`9w0IKNRB
zDSh*;TU6Gz?L`<z_u|2qLg0NV7~>MN7Vo_2W_#+G7`w*~CGOqc8kpAd@-94niy!sB
z4kIs2{OwH_CEg$mt@o}YJMNik&mJ{n62^O1)bw<EZ&|mo4eOR1!T6t?3+QhAa!CR&
z{X2lZ4ijpaJDgJcAM7QgX4Jy05Tak(a`!V?Hd|}P+@H?GhHX>u-aq50oWe0{Y95ch
z5dh*TIL^o|h&HWQZ7&@aqxaZ>W9xUedaIjv?7@9Ec=2{@2AVt1M#G;Y$R0k5Rf|*j
zwBL!A7Ba1ya5!QcI=8K@uvZt&sD$y(YcGg&J8r9gXdl)t=*74TXP`5pA>ih;TVxUI
zjlvVwaLv2~8r}>b+nt6MRsw!`-=nsPqA6OK5Dh8@%!UmwfKAJ`U|HQ1QtCoJ516J2
zMP#9<WNr{xazPqyzk(Nb8$dP#cQ9W&u=UDX+f-2$FRXpn9dCaeIPa~dX54wL6Rd0^
zkjq1n1kx!I!j8f1bCOCr=T#MJE{$UQ$3b-MO#v<j!+G>~ho4wgVw)S0qJ;5|<v)xb
zao6AeNEg=B975&%=|F}CBo3#+5g&-6!jpvRx3&rrMq^dyn3!{J7JuAHTB5XljMvJ1
z?#~_^vN$p$3KODHW+}1xw@tcSHt;U$>dvOShL;A+!fH1~Yp_3pNnrsv$z$BQ8Bsg0
zV&(iO4kQA2>tEEx1zdi9UGI|%7ZnVTz{tY(ZoBP+{lS?{Ti?gJWen=XvnYfl%7QUC
z)f5t4`%yWO6w0c#qA(;V_q-tqbr(m`u%{Hs&NyVh0k<o;seAoudV^DQ%JYnWvTS-f
zra!mp{+P0~ycIuRc|JXn!e!kT1)cvSY@8#8Y5rc!nNtBtqvwesVFi68uBtSN-R*vS
z(KU!4Po}TbBL%afOWoMi^N*p4!*f!PiS<H4)@*p}b(gLkdKatf&ZK=QNCV_8>!FnN
zi3IR`YZaQ~HRw2)rp}zTa%kLYSy9y#tXUYr_VzM#d_*4tQ{eKMH%A^{^rN9!!*g<B
zmtS?$fu7Lpr=Mv<eQgHLs&l>xp@kyQeN@Jt&noa*n;(B|Y$r!j*0bYH@(e?DWd?Jm
z=kfbpVTfn~Mu{P7&c02JOB+ubv0(>z%ks&&obs3JA4;k7oGtjp^>h|0bU`h+z=lHU
zb8)bA1i{z`Sh~Q0(1bIFqFnIWSB2)#^y+XNPregI$c#`vGU!fT9xiQ7{HCevogstA
zbArdn6oZ_9_&-s%<HPs5aaoN{;qcQ&X@^Rp#8IipbWqcgbLAxis9#%x$qOr~pH>?t
zm`-A7OrotsqP7+GU|Ak@bE9~+WjqpnNqR2@PRHO~eNSCMp*WEfZm_XkD<^w>srE!t
z;GRE8=;}_v?@^)33<~*IRU|5+Q0uZ)3rO@=#j4#pgM;3~p>XK*fg04O$$7|<30=wI
z!^0jl?iSdxtPR0QKC+oc|3LXGC0FhE8C~1yt-j#|Vf}w!I>Dpn_9>-K9jP4RUkD5&
zOeE6+gOo2RN~0vzgH$KTiK&bz^jRgHrFNDfo8!pjB;-wj968xa%`7?D&@@~<?Q<-u
z$%AV$Se`tmSA$Kub&4@{)~B|F0>j?<`=6gbPtvn16q8TTHD>JrUM4FpCNnpaBnMQc
zFed5bGIA9a@*X6rY5ORcv~tTz#~js`Dk?lfp|$o8+U__B=lKkMKgW<V=5k}|ug;Rn
zst*+&ZZoW~VPFk2OC3L`@i{{7tcx3QEk|M<Zl70G6t4vCmo&-AnG#YI#ii;ZKs&4t
zLUKdaf|4W*Rh8%t!VS)aOMtm3bj(#+)nf)Oc|e=7YP0>EuPIj8f6c3lD|Lq_rh3j)
xjByhu`SkMhgju_(x12G$kDTT-r}@4Ed<i2wiHQbV0!{z`002ovPDHLkV1kBAHr@aL

literal 0
HcmV?d00001

diff --git a/SetUp/SetUpVM.vb b/SetUp/SetUpVM.vb
index c37a141..a154397 100644
--- a/SetUp/SetUpVM.vb
+++ b/SetUp/SetUpVM.vb
@@ -444,10 +444,12 @@ Public Class SetUpVM
                         If String.IsNullOrWhiteSpace(sSearchedTool) Then sSearchedTool = sToolNameList(ToolIndex)
                         If Not String.IsNullOrWhiteSpace(sSearchedTool) Then
                            ' Impossibile trovare l'utensile xxx nel DB utensili
-                           MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 3) & " " & sSearchedTool & " " & EgtMsg(MSG_SETUPERRORS + 4), EgtMsg(MSG_SETUPERRORS + 2), MessageBoxButton.OK, MessageBoxImage.Error)
+                           'MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 3) & " " & sSearchedTool & " " & EgtMsg(MSG_SETUPERRORS + 4), EgtMsg(MSG_SETUPERRORS + 2), MessageBoxButton.OK, MessageBoxImage.Error)
+                           EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SETUPERRORS + 3) & " " & sSearchedTool & " " & EgtMsg(MSG_SETUPERRORS + 4), EgtMsg(MSG_SETUPERRORS + 2), MessageBoxButton.OK, MessageBoxImage.Error)
                         Else
                            ' Impossibile trovare l'utensile nel DB utensili
-                           MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 3) & " " & EgtMsg(MSG_SETUPERRORS + 4), EgtMsg(MSG_SETUPERRORS + 2), MessageBoxButton.OK, MessageBoxImage.Error)
+                           'MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 3) & " " & EgtMsg(MSG_SETUPERRORS + 4), EgtMsg(MSG_SETUPERRORS + 2), MessageBoxButton.OK, MessageBoxImage.Error)
+                           EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SETUPERRORS + 3) & " " & EgtMsg(MSG_SETUPERRORS + 4), EgtMsg(MSG_SETUPERRORS + 2), MessageBoxButton.OK, MessageBoxImage.Error)
                         End If
                      End If
                   End If
@@ -563,7 +565,8 @@ Public Class SetUpVM
             For ErrorIndex = 0 To ErrorList.Count - 1
                sError &= "- " & ErrorList(ErrorIndex) & Environment.NewLine
             Next
-            MessageBox.Show(sError, EgtMsg(MSG_SETUPERRORS + 2), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            'MessageBox.Show(sError, EgtMsg(MSG_SETUPERRORS + 2), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, sError, EgtMsg(MSG_SETUPERRORS + 2), MessageBoxButton.OK, MessageBoxImage.Exclamation)
          End If
       End If
    End Sub
@@ -610,7 +613,8 @@ Public Class SetUpVM
       ' se la posizione non è valida, restituisco errore
       If sHead = INVALIDPOS Then
          EgtOutLog("SetUp warning: try to set " & SelTool.Name & " on " & Position.TcPos)
-         MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 5), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 5), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SETUPERRORS + 5), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          Return False
       ' altrimenti, se la posizione nell'attrezzaggio è vuota
       ElseIf Not PosIsOccupied Then
@@ -637,13 +641,11 @@ Public Class SetUpVM
          ' altrimenti restituisco falso
          Else
             ErrorList.Add(SelTool.Name)
-            'MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 9) & " " & SelTool.Name & " " & EgtMsg(MSG_SETUPERRORS + 6), EgtMsg(MSG_SETUPERRORS + 2), MessageBoxButton.OK, MessageBoxImage.Exclamation)
             Return False
          End If
       ' altrimenti restituisco falso
       Else
          ErrorList.Add(SelTool.Name)
-         'MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 9) & " " & SelTool.Name & " " & EgtMsg(MSG_SETUPERRORS + 6), EgtMsg(MSG_SETUPERRORS + 2), MessageBoxButton.OK, MessageBoxImage.Exclamation)
          Return False
       End If
       Return True
@@ -790,7 +792,8 @@ Public Class SetUpVM
          For ErrorIndex = 0 To ErrorList.Count - 1
             sError &= "- " & ErrorList(ErrorIndex) & Environment.NewLine
          Next
-         MessageBox.Show(sError, EgtMsg(MSG_SETUPERRORS + 2), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+         'MessageBox.Show(sError, EgtMsg(MSG_SETUPERRORS + 2), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sError, EgtMsg(MSG_SETUPERRORS + 2), MessageBoxButton.OK, MessageBoxImage.Exclamation)
       End If
 
       ' abilito e disabilito tutte le uscite in base all'utensile selezionato 
diff --git a/SetUpDb/SetUpDbVM.vb b/SetUpDb/SetUpDbVM.vb
index 9e6643d..dd9fa9a 100644
--- a/SetUpDb/SetUpDbVM.vb
+++ b/SetUpDb/SetUpDbVM.vb
@@ -27,7 +27,8 @@ Public Class SetUpDbVM
       Set(value As String)
          ' se setup modificato, chiedo se salvare
          If m_SetUpVM.IsModifiedSetUp OrElse m_IsNew Then
-            Select Case MessageBox.Show(EgtMsg(9007), EgtMsg(9006), MessageBoxButton.YesNo, MessageBoxImage.Question)
+            'Select Case MessageBox.Show(EgtMsg(9007), EgtMsg(9006), MessageBoxButton.YesNo, MessageBoxImage.Question)
+            Select Case EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(9007), EgtMsg(9006), MessageBoxButton.YesNo, MessageBoxImage.Question)
                Case MessageBoxResult.Yes
                   Save()
                Case MessageBoxResult.No
@@ -127,7 +128,8 @@ Public Class SetUpDbVM
    Public Sub Save()
       If Not m_SetUpVM.Save(m_SetUpDir_FilePath & "\" & m_SelSetUp & SETUP_FILEEXTENSION) Then
          EgtOutLog("Error in setup saving: can't find the directory")
-         MessageBox.Show("Error in saving Setup.", "Error", MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show("Error in saving Setup.", "Error", MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, "Error in saving Setup.", "Error", MessageBoxButton.OK, MessageBoxImage.Error)
       Else
          m_IsNew = False
          m_SetUpVM.ResetModifiedSetUp()
@@ -156,7 +158,8 @@ Public Class SetUpDbVM
    Public Sub AddSetup()
       ' se setup modificato, chiedo se salvare
       If m_SetUpVM.IsModifiedSetUp OrElse m_IsNew Then
-         Select Case MessageBox.Show(EgtMsg(9007), EgtMsg(9006), MessageBoxButton.YesNoCancel, MessageBoxImage.Question)
+         'Select Case MessageBox.Show(EgtMsg(9007), EgtMsg(9006), MessageBoxButton.YesNoCancel, MessageBoxImage.Question)
+         Select Case EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(9007), EgtMsg(9006), MessageBoxButton.YesNoCancel, MessageBoxImage.Question)
             Case MessageBoxResult.Yes
                Save()
             Case MessageBoxResult.No
@@ -208,7 +211,8 @@ Public Class SetUpDbVM
    ''' </summary>
    Public Sub RemoveSetup()
       ' chiedo conferma
-      If MessageBox.Show("Are you sure you want to delete this setup?", "Setup", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.No Then Return
+      'If MessageBox.Show("Are you sure you want to delete this setup?", "Setup", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.No Then Return
+      If EgtMessageBoxV.Show(Application.Current.MainWindow, "Are you sure you want to delete this setup?", "Setup", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.No Then Return
       ' recupero indice setup corrente
       Dim DeletedIndex As Integer = m_SetUpList.IndexOf(m_SelSetUp)
       ' elimino il file
@@ -218,7 +222,8 @@ Public Class SetUpDbVM
             File.Delete(DeleteFilePath)
          Catch ex As Exception
             EgtOutLog("Error in deleting setup file: " & ex.ToString)
-            MessageBox.Show("Impossible deleting the setup file.", "Error", MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            'MessageBox.Show("Impossible deleting the setup file.", "Error", MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, "Impossible deleting the setup file.", "Error", MessageBoxButton.OK, MessageBoxImage.Exclamation)
             Return
          End Try
       End If
@@ -254,7 +259,8 @@ Public Class SetUpDbVM
    Public Sub Close()
       ' se setup modificato, chiedo se salvare
       If m_SetUpVM.IsModifiedSetUp OrElse m_IsNew Then
-         Select Case MessageBox.Show(EgtMsg(9007), EgtMsg(9006), MessageBoxButton.YesNoCancel, MessageBoxImage.Question)
+         'Select Case MessageBox.Show(EgtMsg(9007), EgtMsg(9006), MessageBoxButton.YesNoCancel, MessageBoxImage.Question)
+         Select Case EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(9007), EgtMsg(9006), MessageBoxButton.YesNoCancel, MessageBoxImage.Question)
             Case MessageBoxResult.Yes
                Save()
             Case MessageBoxResult.No
diff --git a/Special-BeamWall/Beam.vb b/Special-BeamWall/Beam.vb
index a628170..713b758 100644
--- a/Special-BeamWall/Beam.vb
+++ b/Special-BeamWall/Beam.vb
@@ -84,7 +84,8 @@ Module Beam
          BeamMchsWinV.ShowDialog()
       Else
          ' Impossibile aprire l'Editor delle lavorazioni delle travi.<br/>Mancano i file di configurazione. - Errore
-         MessageBox.Show(EgtMsg(9009), EgtMsg(9008), MessageBoxButton.OK, MessageBoxImage.Stop)
+         'MessageBox.Show(EgtMsg(9009), EgtMsg(9008), MessageBoxButton.OK, MessageBoxImage.Stop)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(9009), EgtMsg(9008), MessageBoxButton.OK, MessageBoxImage.Stop)
       End If
       Return True
    End Function
diff --git a/Special-BeamWall/Wall.vb b/Special-BeamWall/Wall.vb
index b6b0c49..afcd4fb 100644
--- a/Special-BeamWall/Wall.vb
+++ b/Special-BeamWall/Wall.vb
@@ -85,7 +85,8 @@ Module Wall
          WallMchsWinV.ShowDialog()
       Else
          ' Impossibile aprire l'Editor delle lavorazioni delle pareti.<br/>Mancano i file di configurazione. - Errore
-         MessageBox.Show(EgtMsg(9011), EgtMsg(9008), MessageBoxButton.OK, MessageBoxImage.Stop)
+         'MessageBox.Show(EgtMsg(9011), EgtMsg(9008), MessageBoxButton.OK, MessageBoxImage.Stop)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(9011), EgtMsg(9008), MessageBoxButton.OK, MessageBoxImage.Stop)
       End If
       Return True
    End Function
diff --git a/Special-Doors/DoorPanelVM.vb b/Special-Doors/DoorPanelVM.vb
index 417aad5..1333bde 100644
--- a/Special-Doors/DoorPanelVM.vb
+++ b/Special-Doors/DoorPanelVM.vb
@@ -150,21 +150,24 @@ Public Class DoorPanelVM
       Dim sTablesDir As String = String.Empty
       If GetPrivateProfileString(S_DOORS, K_TABLESDIR, "", sTablesDir) = 0 Then
          ' Se non lo trovo mando messaggio di errore e chiudo la finestra
-         MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 4), EgtMsg(MSG_DOORSERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 4), EgtMsg(MSG_DOORSERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_DOORSERRORS + 4), EgtMsg(MSG_DOORSERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          Return
       End If
       IniFile.m_sTablesRoot = IniFile.m_sDoorsDirPath & "\" & sTablesDir
       ' Verifico che la cartella indicata esista
       If Not My.Computer.FileSystem.DirectoryExists(IniFile.m_sTablesRoot) Then
          ' Se non la trovo mando messaggio di errore e chiudo la finestra
-         MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 5), EgtMsg(MSG_DOORSERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 5), EgtMsg(MSG_DOORSERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_DOORSERRORS + 5), EgtMsg(MSG_DOORSERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          Return
       End If
       ' Verifico che ci sia il file ini per scrivere le tabelle
       If Not My.Computer.FileSystem.FileExists(IniFile.m_sTablesRoot & "\" & MTABLETEMPLATE_FILE) OrElse Not My.Computer.FileSystem.FileExists(IniFile.m_sTablesRoot & "\" & GEONAMELIST_FILE) _
          OrElse Not My.Computer.FileSystem.FileExists(IniFile.m_sTablesRoot & "\" & OPERATIONLIST_FILE) Then
          ' Se non la trovo mando messaggio di errore e chiudo la finestra
-         MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 6), EgtMsg(MSG_DOORSERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 6), EgtMsg(MSG_DOORSERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_DOORSERRORS + 6), EgtMsg(MSG_DOORSERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          Return
       End If
       ' verifico 
@@ -172,13 +175,6 @@ Public Class DoorPanelVM
 
       Dim MTableDb As New MTableDbV(Application.Current.MainWindow, New MTableDbVM)
       MTableDb.ShowDialog()
-
-      'Dim MTableDbWindow As New MTableDbView
-      'MTableDbWindow.Height = 614
-      'MTableDbWindow.Width = 1024
-      'MTableDbWindow.DataContext = New MTableDbViewModel
-      'MTableDbWindow.Owner = Application.Current.MainWindow
-      'MTableDbWindow.ShowDialog()
    End Sub
 
 #End Region    ' MTableDbCommand
diff --git a/Special-Doors/Doors.vb b/Special-Doors/Doors.vb
index 7fbf545..584f5aa 100644
--- a/Special-Doors/Doors.vb
+++ b/Special-Doors/Doors.vb
@@ -83,7 +83,8 @@ Public Module Doors
       If Not bNcGen And Not bBatch And nProbing = 0 Then
          ' Segnalazione eventuali Warnings/Errors
          If nErr = 999 Then
-            MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 17), EgtMsg(MSG_DOORSERRORS + 1).ToUpper)
+            'MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 17), EgtMsg(MSG_DOORSERRORS + 1).ToUpper)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_DOORSERRORS + 17), EgtMsg(MSG_DOORSERRORS + 1).ToUpper)
          ElseIf nErr <> 0 Then
             Try
                Dim sErrFilePath As String = Path.ChangeExtension(sDdfFile, ".txt")
@@ -93,12 +94,15 @@ Public Module Doors
                   If Not String.IsNullOrWhiteSpace(Lines(Index)) Then sErrMsg &= Lines(Index) & vbCrLf
                Next
                If nErr > 0 Then
-                  MessageBox.Show(sErrMsg, EgtMsg(MSG_DOORSERRORS + 1).ToUpper, MessageBoxButton.OK, MessageBoxImage.Error)
+                  'MessageBox.Show(sErrMsg, EgtMsg(MSG_DOORSERRORS + 1).ToUpper, MessageBoxButton.OK, MessageBoxImage.Error)
+                  EgtMessageBoxV.Show(Application.Current.MainWindow, sErrMsg, EgtMsg(MSG_DOORSERRORS + 1).ToUpper, MessageBoxButton.OK, MessageBoxImage.Error)
                Else
-                  MessageBox.Show(sErrMsg, EgtMsg(MSG_DOORSERRORS + 3).ToUpper, MessageBoxButton.OK, MessageBoxImage.Warning)
+                  'MessageBox.Show(sErrMsg, EgtMsg(MSG_DOORSERRORS + 3).ToUpper, MessageBoxButton.OK, MessageBoxImage.Warning)
+                  EgtMessageBoxV.Show(Application.Current.MainWindow, sErrMsg, EgtMsg(MSG_DOORSERRORS + 3).ToUpper, MessageBoxButton.OK, MessageBoxImage.Warning)
                End If
             Catch ex As Exception
-               MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 7), EgtMsg(MSG_DOORSERRORS + 1).ToUpper)
+               'MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 7), EgtMsg(MSG_DOORSERRORS + 1).ToUpper)
+               EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_DOORSERRORS + 7), EgtMsg(MSG_DOORSERRORS + 1).ToUpper)
             End Try
          End If
       End If
diff --git a/Special-Doors/MTableDbVM.vb b/Special-Doors/MTableDbVM.vb
index 2e71f54..17a5e89 100644
--- a/Special-Doors/MTableDbVM.vb
+++ b/Special-Doors/MTableDbVM.vb
@@ -404,9 +404,9 @@ Public Class MTableDbVM
       If EgtVerifyMachinesDir() AndAlso Not bActiveMTableFound AndAlso m_TablesList.Count > 0 Then
          m_TablesList(0).IsSelected = True
          If Not m_TablesList(0).IsSelected Then
-            m_TablesList.RemoveAt( 0)
-            return
-         End If 
+            m_TablesList.RemoveAt(0)
+            Return
+         End If
          m_TablesList(0).SelMachine = m_TablesList(0).ActiveMachinesList(0)
       End If
    End Sub
@@ -921,11 +921,13 @@ Public Class MTableDbVM
       End While
       ' verifico se la tabella selezionata è quella attiva
       If SelectedMTable.ActiveTable Then
-         MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 8) & vbCrLf & EgtMsg(MSG_DOORSERRORS + 9), "", MessageBoxButton.OK, MessageBoxImage.Stop)
+         'MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 8) & vbCrLf & EgtMsg(MSG_DOORSERRORS + 9), "", MessageBoxButton.OK, MessageBoxImage.Stop)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_DOORSERRORS + 8) & vbCrLf & EgtMsg(MSG_DOORSERRORS + 9), "", MessageBoxButton.OK, MessageBoxImage.Stop)
          Exit Sub
       End If
       ' chiedo conferma prima di cancellare la tabella
-      If MessageBox.Show(EgtMsg(MSG_DOORS + 6), "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+      'If MessageBox.Show(EgtMsg(MSG_DOORS + 6), "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+      If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_DOORS + 6), "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
          If Not String.IsNullOrEmpty(SelectedMTable.TableNamePath) Then
             File.Delete(SelectedMTable.TableNamePath)
          End If
@@ -1188,9 +1190,8 @@ Public Class MTableDbVM
       Dim SelectedMTable As MTableListBoxItem = DirectCast(param, MTableListBoxItem)
       If Not IsNothing(SelectedMTable) AndAlso SelectedMTable.ActiveMachinesList.Count > 1 Then
          ' Chiedo conferma cancellazione associazione macchina
-         If MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 12), EgtMsg(MSG_DOORSERRORS + 11), MessageBoxButton.YesNo, MessageBoxImage.Question) <> MessageBoxResult.Yes Then
-            Return
-         End If
+         'If MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 12), EgtMsg(MSG_DOORSERRORS + 11), MessageBoxButton.YesNo, MessageBoxImage.Question) <> MessageBoxResult.Yes Then Return
+         If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_DOORSERRORS + 12), EgtMsg(MSG_DOORSERRORS + 11), MessageBoxButton.YesNo, MessageBoxImage.Question) <> MessageBoxResult.Yes Then Return
          SelectedMTable.ActiveMachinesList.RemoveAt(SelectedMTable.SharedMachIndex - 1)
          SelectedMTable.MachIdList.RemoveAt(SelectedMTable.SharedMachIndex - 1)
          SelectedMTable.SharedMachIndex -= 1
@@ -1251,9 +1252,8 @@ Public Class MTableDbVM
       If Not IsNothing(SelectedMTable) AndAlso SelectedMTable.AssociationList.Count > 1 Then
          If IsNothing(SelectedMTable.SelectedAssociation) Then Return
          ' Chiedo conferma cancellazione riga di associazione
-         If MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 10), EgtMsg(MSG_DOORSERRORS + 11), MessageBoxButton.YesNo, MessageBoxImage.Question) <> MessageBoxResult.Yes Then
-            Return
-         End If
+         'If MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 10), EgtMsg(MSG_DOORSERRORS + 11), MessageBoxButton.YesNo, MessageBoxImage.Question) <> MessageBoxResult.Yes Then Return
+         If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_DOORSERRORS + 10), EgtMsg(MSG_DOORSERRORS + 11), MessageBoxButton.YesNo, MessageBoxImage.Question) <> MessageBoxResult.Yes Then Return
          Dim SelectedIndex As Integer = SelectedMTable.AssociationList.IndexOf(SelectedMTable.SelectedAssociation)
          ' rimuovo Item associati dalla lisa lavorazioni ordinata
          RemoveMachItem(SelectedIndex, SelectedMTable, SelectedMTable.AssociationList(SelectedIndex).RefMachItem)
@@ -1754,7 +1754,8 @@ Public Class MTableDbVM
       Dim SelectedMTable As MTableListBoxItem = DirectCast(param, MTableListBoxItem)
       If Not IsNothing(SelectedMTable) AndAlso (SelectedMTable.IsModified() OrElse String.IsNullOrEmpty(SelectedMTable.m_TableNamePath)) Then
          ' chiedo se salvare la tabella corrente prima di passare alla successiva
-         If MessageBox.Show(EgtMsg(MSG_DOORS + 7), "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+         'If MessageBox.Show(EgtMsg(MSG_DOORS + 7), "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+         If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_DOORS + 7), "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
             SaveTable(SelectedMTable)
          End If
       End If
diff --git a/Special-Doors/MTableListBox.vb b/Special-Doors/MTableListBox.vb
index 3d675ff..4d734f8 100644
--- a/Special-Doors/MTableListBox.vb
+++ b/Special-Doors/MTableListBox.vb
@@ -56,7 +56,8 @@ Public Class MTableListBoxItem
                m_delSearchInMTable(Me)
             ElseIf IsModified() OrElse String.IsNullOrEmpty(m_TableNamePath) Then
                ' chiedo se salvare la tabella corrente prima di passare alla successiva
-               If MessageBox.Show(EgtMsg(MSG_DOORS + 7), "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+               'If MessageBox.Show(EgtMsg(MSG_DOORS + 7), "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+               If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_DOORS + 7), "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
                   m_delSaveMTable(Me)
                ElseIf String.IsNullOrEmpty(m_TableNamePath) Then
                   Visibility = Windows.Visibility.Collapsed
@@ -315,7 +316,7 @@ Public Class MTableMachineListBoxItem
 
    Sub New(sMachName As String, bNcGenerate As Boolean, bMakeraw As Boolean, nMachId As Integer)
       If m_MachinesList.Count = 0 Then
-         If Not SearchMachine() Then MessageBox.Show("Error: Can't find machines dir!")
+         If Not SearchMachine() Then EgtMessageBoxV.Show(Application.Current.MainWindow, "Error: Can't find machines dir!") ' MessageBox.Show("Error: Can't find machines dir!")
       End If
       If Not String.IsNullOrWhiteSpace(sMachName) Then
          For Index = 0 To m_MachinesList.Count - 1
diff --git a/Special-Doors/TableUtility.vb b/Special-Doors/TableUtility.vb
index 4d88f3a..436ea63 100644
--- a/Special-Doors/TableUtility.vb
+++ b/Special-Doors/TableUtility.vb
@@ -496,7 +496,8 @@ Module TableUtility
       If Directory.Exists(IniFile.m_sDoorsDirPath) Then
          Return True
       Else
-         If MessageBox.Show(String.Format(EgtMsg(MSG_DOORSERRORS + 15) & Environment.NewLine & EgtMsg(MSG_DOORSERRORS + 16), IniFile.m_sDoorsDirPath), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.YesNo, MessageBoxImage.Error) = MessageBoxResult.Yes Then
+         'If MessageBox.Show(String.Format(EgtMsg(MSG_DOORSERRORS + 15) & Environment.NewLine & EgtMsg(MSG_DOORSERRORS + 16), IniFile.m_sDoorsDirPath), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.YesNo, MessageBoxImage.Error) = MessageBoxResult.Yes Then
+         If EgtMessageBoxV.Show(Application.Current.MainWindow, String.Format(EgtMsg(MSG_DOORSERRORS + 15) & Environment.NewLine & EgtMsg(MSG_DOORSERRORS + 16), IniFile.m_sDoorsDirPath), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.YesNo, MessageBoxImage.Error) = MessageBoxResult.Yes Then
             Return RecursiveVerifyDoorsDir()
          End If
          Return False
diff --git a/Special-GunStock/GunStock.vb b/Special-GunStock/GunStock.vb
index c6bcc73..9514ae1 100644
--- a/Special-GunStock/GunStock.vb
+++ b/Special-GunStock/GunStock.vb
@@ -56,7 +56,8 @@ Module GunStock
 
       ' Carico ambiente lua per Gunstock
       If Not LoadGunStock() Then
-         MessageBox.Show(EgtMsg(MSG_GUNSTOCKERRORS + 2), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_GUNSTOCKERRORS + 2), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_GUNSTOCKERRORS + 2), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          EgtOutLog("Error in LoadGunStock")
          Return False
       End If
@@ -64,7 +65,8 @@ Module GunStock
       ' Lettura dei parametri dal modello
       m_sDescription = String.Empty
       If Not ReadModParams() Then
-         MessageBox.Show(EgtMsg(MSG_GUNSTOCKERRORS + 3), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_GUNSTOCKERRORS + 3), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_GUNSTOCKERRORS + 3), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          EgtOutLog("Error in ReadModParams")
          Return False
       End If
@@ -80,14 +82,16 @@ Module GunStock
 
       ' Scrivo file PEZ
       If Not WritePezParams() Then
-         MessageBox.Show(EgtMsg(MSG_GUNSTOCKERRORS + 4), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_GUNSTOCKERRORS + 4), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_GUNSTOCKERRORS + 4), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          EgtOutLog("Error in WritePezParams")
          Return False
       End If
 
       ' Visualizzo dimensioni grezzo
       If Not ShowRawDim() Then
-         MessageBox.Show(EgtMsg(MSG_GUNSTOCKERRORS + 4), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_GUNSTOCKERRORS + 4), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_GUNSTOCKERRORS + 4), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          EgtOutLog("Error in ShawRawDim")
          Return False
       End If
@@ -127,14 +131,16 @@ Module GunStock
 
       ' Carico ambiente lua per Gunstock
       If Not LoadGunStock() Then
-         MessageBox.Show(EgtMsg(MSG_GUNSTOCKERRORS + 2), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_GUNSTOCKERRORS + 2), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_GUNSTOCKERRORS + 2), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          EgtOutLog("Error in LoadGunStock")
          Return False
       End If
 
       ' Lettura dei parametri dal pezzo
       If Not ReadPezParams() Then
-         MessageBox.Show(EgtMsg(MSG_GUNSTOCKERRORS + 3), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_GUNSTOCKERRORS + 3), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_GUNSTOCKERRORS + 3), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          EgtOutLog("Error in ReadPezParams")
          Return False
       End If
@@ -146,14 +152,16 @@ Module GunStock
 
       ' Scrivo file PEZ
       If Not WritePezParams() Then
-         MessageBox.Show(EgtMsg(MSG_GUNSTOCKERRORS + 4), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_GUNSTOCKERRORS + 4), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_GUNSTOCKERRORS + 4), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          EgtOutLog("Error in WritePezParams")
          Return False
       End If
 
       ' Visualizzo dimensioni grezzo
       If Not ShowRawDim() Then
-         MessageBox.Show(EgtMsg(MSG_GUNSTOCKERRORS + 4), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_GUNSTOCKERRORS + 4), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_GUNSTOCKERRORS + 4), EgtMsg(MSG_GUNSTOCKERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          EgtOutLog("Error in ShawRawDim")
          Return False
       End If
@@ -172,7 +180,8 @@ Module GunStock
 
       ' Carico ambiente lua per Gunstock
       If Not LoadGunStock() Then
-         MessageBox.Show(EgtMsg(8252), EgtMsg(8251), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(8252), EgtMsg(8251), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(8252), EgtMsg(8251), MessageBoxButton.OK, MessageBoxImage.Error)
          EgtOutLog("Error in LoadGunStock")
          Return False
       End If
@@ -316,7 +325,8 @@ Module GunStock
       If Not EgtLuaGetGlobStringVar("GGD.DIMGREZ", sDimGrez) Or
          String.IsNullOrWhiteSpace(sDimGrez) Then Return False
       ' Visualizzo la dimensione del grezzo
-      MessageBox.Show(sDimGrez, EgtMsg(MSG_GUNSTOCK + 13), MessageBoxButton.OK, MessageBoxImage.Information)
+      'MessageBox.Show(sDimGrez, EgtMsg(MSG_GUNSTOCK + 13), MessageBoxButton.OK, MessageBoxImage.Information)
+      EgtMessageBoxV.Show(Application.Current.MainWindow, sDimGrez, EgtMsg(MSG_GUNSTOCK + 13), MessageBoxButton.OK, MessageBoxImage.Information)
       Return True
    End Function
 
diff --git a/Special-GunStock/GunStockWndV.xaml.vb b/Special-GunStock/GunStockWndV.xaml.vb
index 1bd877c..4501b0f 100644
--- a/Special-GunStock/GunStockWndV.xaml.vb
+++ b/Special-GunStock/GunStockWndV.xaml.vb
@@ -11,8 +11,10 @@ Public Class GunStockWndV
                                System.IO.Path.GetExtension(FileNameTxBl.Text)
          ' Verifico se esiste già e chiedo conferma di sovrascrittura
          If File.Exists(sFile) Then
-            If MessageBox.Show(sFile & " " & EgtMsg(MSG_EGTSAVEFILEDIALOG + 3) & vbCrLf & EgtMsg(MSG_EGTSAVEFILEDIALOG + 4),
-                               "", MessageBoxButton.YesNo, MessageBoxImage.Exclamation) <> MessageBoxResult.Yes Then
+            'If MessageBox.Show(sFile & " " & EgtMsg(MSG_EGTSAVEFILEDIALOG + 3) & vbCrLf & EgtMsg(MSG_EGTSAVEFILEDIALOG + 4),
+            '                   "", MessageBoxButton.YesNo, MessageBoxImage.Exclamation) <> MessageBoxResult.Yes Then
+            If EgtMessageBoxV.Show(Application.Current.MainWindow, sFile & " " & EgtMsg(MSG_EGTSAVEFILEDIALOG + 3) & vbCrLf & EgtMsg(MSG_EGTSAVEFILEDIALOG + 4),
+                                                                   "", MessageBoxButton.YesNo, MessageBoxImage.Exclamation) <> MessageBoxResult.Yes Then
                Exit Sub
             End If
          End If
diff --git a/ToolsDbWindow/MyToolDbWindowVM.vb b/ToolsDbWindow/MyToolDbWindowVM.vb
index 2c2e43f..c0f2308 100644
--- a/ToolsDbWindow/MyToolDbWindowVM.vb
+++ b/ToolsDbWindow/MyToolDbWindowVM.vb
@@ -58,7 +58,8 @@ Public Class MyToolDbWindowVM
       ' verifico che il file di configurazione attrezzaggio (lua) della macchina esista
       If Not File.Exists(IniFile.m_sCurrMachScriptsDirPath & "\" & SETUP_LUA) Then
          EgtOutLog("SetUp error: SetUp configuration file doesn't exist ")
-         MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 7), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 7), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SETUPERRORS + 7), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          Return
       End If
       ' carico Lua che contiene le funzioni per ottenere le posizioni valide dell'utensile selezionato,
@@ -77,7 +78,8 @@ Public Class MyToolDbWindowVM
          EgtLuaGetGlobIntVar("STU.ERR", nErr)
          If nErr = 0 Then
             If EgtGetHeadExitCount(sHead) = 0 Then
-               MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 8), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+               'MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 8), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+               EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SETUPERRORS + 8), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
                Return
             End If
          End If
diff --git a/TopCommandBar/TopCommandBarVM.vb b/TopCommandBar/TopCommandBarVM.vb
index 4b93e54..2c8cd70 100644
--- a/TopCommandBar/TopCommandBarVM.vb
+++ b/TopCommandBar/TopCommandBarVM.vb
@@ -256,7 +256,8 @@ Public Class TopCommandBarVM
       EgtLuaCreateGlobTable("MACH")
       If Not EgtLuaExecFile(sInitMachScriptPath) Then
          EgtOutLog("Error executing Machining init script " & sInitMachScriptPath)
-         MessageBox.Show(EgtMsg(MSG_DISPOSITIONERRORS + 3) & " " & sInitMachScriptPath, EgtMsg(MSG_DISPOSITIONERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_DISPOSITIONERRORS + 3) & " " & sInitMachScriptPath, EgtMsg(MSG_DISPOSITIONERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_DISPOSITIONERRORS + 3) & " " & sInitMachScriptPath, EgtMsg(MSG_DISPOSITIONERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          Return False
       End If
       Dim nErr As Integer = 999
@@ -275,7 +276,8 @@ Public Class TopCommandBarVM
       EgtLuaCreateGlobTable("MACH")
       If Not EgtLuaExecFile(sExitMachScriptPath) Then
          EgtOutLog("Error executing Machining exit script " & sExitMachScriptPath)
-         MessageBox.Show(EgtMsg(MSG_DISPOSITIONERRORS + 4) & " " & sExitMachScriptPath, EgtMsg(MSG_DISPOSITIONERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_DISPOSITIONERRORS + 4) & " " & sExitMachScriptPath, EgtMsg(MSG_DISPOSITIONERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_DISPOSITIONERRORS + 4) & " " & sExitMachScriptPath, EgtMsg(MSG_DISPOSITIONERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          Return False
       End If
       Dim nErr As Integer = 999
@@ -616,7 +618,8 @@ Public Class TopCommandBarVM
       GetPrivateProfileString(S_GENERAL, K_SUPPORT, "support@egaltech.com", sSupportAddress)
       ' se vuoto do messaggio di errore ed esco
       If String.IsNullOrWhiteSpace(sSupportAddress) Then
-         MessageBox.Show(EgtMsg(MSG_TOPCOMMANDBAR + 10), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_TOPCOMMANDBAR + 10), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_TOPCOMMANDBAR + 10), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
          Return
       End If
       ' Recupero numero chiave
@@ -627,14 +630,16 @@ Public Class TopCommandBarVM
       EgtGetCurrFilePath(sCurrProject)
       ' se nome file vuoto, chiedo se si vuole salvare
       If String.IsNullOrWhiteSpace(sCurrProject) Then
-         If MessageBox.Show(EgtMsg(MSG_TOPCOMMANDBAR + 11), "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+         'If MessageBox.Show(EgtMsg(MSG_TOPCOMMANDBAR + 11), "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+         If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_TOPCOMMANDBAR + 11), "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
             Map.refProjectVM.SaveProject()
          End If
          EgtGetCurrFilePath(sCurrProject)
          ' se modificato, chiedo se si vuole salvare
       Else
          If EgtGetModified() Then
-            If MessageBox.Show(EgtMsg(MSG_TOPCOMMANDBAR + 11), "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+            'If MessageBox.Show(EgtMsg(MSG_TOPCOMMANDBAR + 11), "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+            If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_TOPCOMMANDBAR + 11), "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
                Map.refProjectVM.SaveProject()
             End If
          End If
@@ -732,7 +737,8 @@ Public Class TopCommandBarVM
          bEx = True
       End Try
       If bEx OrElse EgtWPFLib5.MapiMailMessage.m_ErrorCode <> 0 Then
-         MessageBox.Show(String.Format(EgtMsg(MSG_TOPCOMMANDBAR + 12), sSupportAddress, sZipToCreate), EgtMsg(MSG_MESSAGEBOX + 3), MessageBoxButton.OK, MessageBoxImage.Information)
+         'MessageBox.Show(String.Format(EgtMsg(MSG_TOPCOMMANDBAR + 12), sSupportAddress, sZipToCreate), EgtMsg(MSG_MESSAGEBOX + 3), MessageBoxButton.OK, MessageBoxImage.Information)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, String.Format(EgtMsg(MSG_TOPCOMMANDBAR + 12), sSupportAddress, sZipToCreate), EgtMsg(MSG_MESSAGEBOX + 3), MessageBoxButton.OK, MessageBoxImage.Information)
       Else
          Map.refStatusBarVM.NotifyStatusOutput(EgtMsg(MSG_TOPCOMMANDBAR + 14))
       End If
@@ -754,10 +760,12 @@ Public Class TopCommandBarVM
          m_MachiningIsChecked = False
          If nErr = 1 Then
             ' Error loading or creating Machining Group    -   LAVORA
-            MessageBox.Show(EgtMsg(10008), EgtMsg(5002), MessageBoxButton.OK, MessageBoxImage.Error)
+            'MessageBox.Show(EgtMsg(10008), EgtMsg(5002), MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(10008), EgtMsg(5002), MessageBoxButton.OK, MessageBoxImage.Error)
          ElseIf nErr = -1 Then
             ' Non ci sono gruppi di lavoro    -   LAVORA
-            MessageBox.Show(EgtMsg(5551), EgtMsg(5002), MessageBoxButton.OK, MessageBoxImage.Information)
+            'MessageBox.Show(EgtMsg(5551), EgtMsg(5002), MessageBoxButton.OK, MessageBoxImage.Information)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5551), EgtMsg(5002), MessageBoxButton.OK, MessageBoxImage.Information)
          End If
       End If
    End Sub
diff --git a/Utility/Dictionary.xaml b/Utility/Dictionary.xaml
index 1837528..843d6b2 100644
--- a/Utility/Dictionary.xaml
+++ b/Utility/Dictionary.xaml
@@ -1238,4 +1238,109 @@
       <Setter Property="HorizontalAlignment" Value="Center"/>
    </Style>
 
+   <!--EgtHexagon-->
+
+   <EgtWPFLib5:HexClipConverter x:Key="ClipConverter"/>
+
+   <Style TargetType="{x:Type EgtWPFLib5:EgtHexItem}" x:Key="EgtHexItem">
+      <Setter Property="Background" Value="CornflowerBlue"/>
+      <Setter Property="BorderBrush" Value="Black"/>
+      <Setter Property="BorderThickness" Value="1.5"/>
+      <Setter Property="HorizontalContentAlignment" Value="Center"/>
+      <Setter Property="VerticalContentAlignment" Value="Center"/>
+      <Setter Property="Template">
+         <Setter.Value>
+            <ControlTemplate TargetType="EgtWPFLib5:EgtHexItem">
+               <Grid Name="hexBorder" Background="{TemplateBinding BorderBrush}">
+                  <Grid.Clip>
+                     <MultiBinding Converter="{StaticResource ClipConverter}">
+                        <Binding Path="ActualWidth" ElementName="hexBorder"/>
+                        <Binding Path="ActualHeight" ElementName="hexBorder"/>
+                        <Binding Path="Orientation" RelativeSource="{RelativeSource TemplatedParent}"/>
+                     </MultiBinding>
+                  </Grid.Clip>
+
+                  <Grid Name="hexContent"                              
+                      Background="{TemplateBinding Background}"
+                      Margin="{TemplateBinding BorderThickness}" VerticalAlignment="Stretch" HorizontalAlignment="Stretch">
+                     <Grid.Clip>
+                        <MultiBinding Converter="{StaticResource ClipConverter}">
+                           <Binding Path="ActualWidth" ElementName="hexContent"/>
+                           <Binding Path="ActualHeight" ElementName="hexContent"/>
+                           <Binding Path="Orientation" RelativeSource="{RelativeSource TemplatedParent}"/>
+                        </MultiBinding>
+                     </Grid.Clip>
+
+                     <ContentPresenter VerticalAlignment="{TemplateBinding VerticalContentAlignment}"
+                                      HorizontalAlignment="{TemplateBinding HorizontalContentAlignment}"
+                                      ClipToBounds="True"
+                                      Margin="{TemplateBinding Padding}"
+                                      Content="{TemplateBinding Content}"
+                                      ContentTemplate="{TemplateBinding ContentTemplate}"/>
+                  </Grid>
+               </Grid>
+               <ControlTemplate.Triggers>
+                  <Trigger Property="IsSelected" Value="True">
+                     <Setter Property="BorderBrush" Value="Gold"/>
+                  </Trigger>
+               </ControlTemplate.Triggers>
+            </ControlTemplate>
+         </Setter.Value>
+      </Setter>
+   </Style>
+
+   <!--HexList-->
+   <Style TargetType="{x:Type EgtWPFLib5:EgtHexList}" x:Key="EgtHexList">
+      <Setter Property="ItemsPanel">
+         <Setter.Value>
+            <ItemsPanelTemplate>
+               <EgtWPFLib5:EgtHexagon ColumnCount="{Binding Path=ColumnCount, RelativeSource={RelativeSource AncestorType=ListBox}}"
+                                      RowCount="{Binding Path=RowCount, RelativeSource={RelativeSource AncestorType=ListBox}}"
+                                      Background="{Binding Path=Background, RelativeSource={RelativeSource AncestorType=ListBox}}"/>
+            </ItemsPanelTemplate>
+         </Setter.Value>
+      </Setter>
+
+      <Setter Property="Template">
+         <Setter.Value>
+            <ControlTemplate TargetType="{x:Type EgtWPFLib5:EgtHexList}">
+               <Grid>
+                  <Border BorderBrush="{TemplateBinding BorderBrush}"
+                            BorderThickness="{TemplateBinding BorderThickness}" 
+                            Background="{TemplateBinding Background}" 
+                            Padding="{TemplateBinding Padding}" SnapsToDevicePixels="True">
+                     <ScrollViewer Focusable="False" 
+                                      HorizontalScrollBarVisibility="Auto"
+                                      VerticalScrollBarVisibility="Auto"
+                                      Padding="{TemplateBinding Padding}">
+                        <ItemsPresenter SnapsToDevicePixels="{TemplateBinding SnapsToDevicePixels}"/>
+                     </ScrollViewer>
+                  </Border>
+               </Grid>
+            </ControlTemplate>
+         </Setter.Value>
+      </Setter>
+   </Style>
+
+   <Style x:Key="DialogWindow_TextBlock" TargetType="{x:Type TextBlock}" BasedOn="{StaticResource {x:Type TextBlock}}">
+      <Setter Property="HorizontalAlignment" Value="Center"/>
+      <Setter Property="VerticalAlignment" Value="Center"/>
+   </Style>
+
+   <Style x:Key="LeftPanel_TextButton" TargetType="{x:Type Button}" BasedOn="{StaticResource {x:Type Button}}">
+      <Setter Property="Height" Value="30"/>
+   </Style>
+
+   <Style x:Key="ColorPicker_TextBox" TargetType="{x:Type TextBox}" BasedOn="{StaticResource {x:Type TextBox}}">
+      <Setter Property="TextAlignment" Value="Center"/>
+      <Setter Property="HorizontalAlignment" Value="Stretch"/>
+      <Setter Property="Width" Value="65"/>
+   </Style>
+
+   <Style x:Key="RightPanel_HalfRound_Button" TargetType="{x:Type Button}" BasedOn="{StaticResource {x:Type Button}}">
+      <Setter Property="Height" Value="24"/>
+      <Setter Property="Width" Value="64"/>
+      <Setter Property="BorderThickness" Value="1,1,1,0"/>
+   </Style>
+
 </ResourceDictionary>
diff --git a/Utility/MachineModel.vb b/Utility/MachineModel.vb
index 718ee82..f5ab5a6 100644
--- a/Utility/MachineModel.vb
+++ b/Utility/MachineModel.vb
@@ -102,7 +102,8 @@ Public Module MachineModel
       If EgtSetCurrMachine(sMachineName) Then
          Return True
       End If
-      If MessageBox.Show(String.Format(EgtMsg(MSG_DOORSERRORS + 13) & Environment.NewLine & EgtMsg(MSG_DOORSERRORS + 14), sMachineName), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.YesNo, MessageBoxImage.Error) = MessageBoxResult.Yes Then
+      'If MessageBox.Show(String.Format(EgtMsg(MSG_DOORSERRORS + 13) & Environment.NewLine & EgtMsg(MSG_DOORSERRORS + 14), sMachineName), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.YesNo, MessageBoxImage.Error) = MessageBoxResult.Yes Then
+      If EgtMessageBoxV.Show(Application.Current.MainWindow, String.Format(EgtMsg(MSG_DOORSERRORS + 13) & Environment.NewLine & EgtMsg(MSG_DOORSERRORS + 14), sMachineName), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.YesNo, MessageBoxImage.Error) = MessageBoxResult.Yes Then
          Return EgtTrySettingCurrMachine(sMachineName)
       End If
       Return False
@@ -121,7 +122,8 @@ Public Module MachineModel
       If Directory.Exists(IniFile.m_sMachinesRoot) Then
          Return True
       Else
-         If MessageBox.Show(String.Format(EgtMsg(MSG_DOORSERRORS + 13) & Environment.NewLine & EgtMsg(MSG_DOORSERRORS + 14), IniFile.m_sMachinesRoot), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.YesNo, MessageBoxImage.Error) = MessageBoxResult.Yes Then
+         'If MessageBox.Show(String.Format(EgtMsg(MSG_DOORSERRORS + 13) & Environment.NewLine & EgtMsg(MSG_DOORSERRORS + 14), IniFile.m_sMachinesRoot), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.YesNo, MessageBoxImage.Error) = MessageBoxResult.Yes Then
+         If EgtMessageBoxV.Show(Application.Current.MainWindow, String.Format(EgtMsg(MSG_DOORSERRORS + 13) & Environment.NewLine & EgtMsg(MSG_DOORSERRORS + 14), IniFile.m_sMachinesRoot), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.YesNo, MessageBoxImage.Error) = MessageBoxResult.Yes Then
             Return VerifyMachinesDir()
          End If
          Return False