diff --git a/OptionsWindow/OptionModule.vb b/OptionsWindow/OptionModule.vb
index 92f78f3..2375744 100644
--- a/OptionsWindow/OptionModule.vb
+++ b/OptionsWindow/OptionModule.vb
@@ -14,6 +14,8 @@ Friend Module OptionModule
    Friend m_bThickLine As Boolean
    ' Qualità di visualizzazione delle superfici
    Friend m_ShowSurfQuality As SceneSurfQualityOpt
+   ' Tipo di visualizzazione delle Zmap
+   Friend m_nShowZmapType As Integer
 
    ' Colore di default in disegno
    Friend m_DefMaterialColor As Color3d
@@ -114,6 +116,8 @@ Friend Module OptionModule
       ' Inizializzo flag visualizzazione smussata delle superfici
       Dim nSSQ As Integer = GetPrivateProfileInt(S_SCENE, K_SHOWSURFQUALITY, 0)
       m_ShowSurfQuality = DirectCast( Math.Min( Math.Max( nSSQ, -2), 2), SceneSurfQualityOpt)
+      ' Inizializzo tipo di visualizzazione Zmap
+      m_nShowZmapType = GetPrivateProfileInt(S_SCENE, K_SHOWZMAP, 9)
       ' Inizio colore di default in disegno
       Dim DefColor As New Color3d(0, 0, 0)
       GetPrivateProfileColor(S_GEOMDB, K_DEFAULTCOLOR, DefColor)
diff --git a/OptionsWindow/OptionWindowV.xaml b/OptionsWindow/OptionWindowV.xaml
index c118e34..37e73c0 100644
--- a/OptionsWindow/OptionWindowV.xaml
+++ b/OptionsWindow/OptionWindowV.xaml
@@ -85,7 +85,31 @@
                          SelectedItem="{Binding SelectedTextFont}" Height="25"
                          Margin="10,5,0,0"/>
             </UniformGrid>
-            <Grid Margin="5,5,5,5">
+            <GroupBox Header="ShowZmap"
+                      Visibility="{Binding ShowZmapVisibility}"
+                      Margin="0,0,0,5">
+               <Grid>
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="1*"/>
+                  <ColumnDefinition Width="1*"/>
+                  <ColumnDefinition Width="1*"/>
+                  <ColumnDefinition Width="1*"/>
+               </Grid.ColumnDefinitions>
+                  <CheckBox IsChecked="{Binding ShowZmapSurf}"
+                            Content="Surfaces" FlowDirection="RightToLeft"
+                            Grid.Row="0" Grid.Column="0" Margin="5,5,10,5" VerticalAlignment="Center"/>
+                  <CheckBox IsChecked="{Binding ShowZmapLines}"
+                            Content="Lines" FlowDirection="RightToLeft"
+                            Grid.Row="0" Grid.Column="1" Margin="5,5,10,5" VerticalAlignment="Center"/>
+                  <CheckBox IsChecked="{Binding ShowZmapNormals}"
+                            Content="Normals" FlowDirection="RightToLeft"
+                            Grid.Row="0" Grid.Column="2" Margin="5,5,10,5" VerticalAlignment="Center"/>
+                  <CheckBox IsChecked="{Binding ShowZmapBiColor}"
+                            Content="BiColor" FlowDirection="RightToLeft"
+                            Grid.Row="0" Grid.Column="3" Margin="5,5,10,5" VerticalAlignment="Center"/>
+               </Grid>
+            </GroupBox>
+            <Grid Margin="5,100,5,5">
                <Button Content="{Binding UpdateLicenceMsg}" Command="{Binding UpdateLicence_Command}"  Height="26" Margin="100,1"/>
             </Grid>
          </StackPanel>
diff --git a/OptionsWindow/OptionWindowVM.vb b/OptionsWindow/OptionWindowVM.vb
index 67bdade..ea23272 100644
--- a/OptionsWindow/OptionWindowVM.vb
+++ b/OptionsWindow/OptionWindowVM.vb
@@ -344,6 +344,63 @@ Public Class OptionWindowVM
       End Set
    End Property
 
+   Public Property ShowZmapSurf As Boolean
+      Get
+         Return (( OptionModule.m_nShowZmapType And 1) <> 0)
+      End Get
+      Set(value As Boolean)
+         If value Then
+            OptionModule.m_nShowZmapType = ( OptionModule.m_nShowZmapType Or 1)
+         Else
+            OptionModule.m_nShowZmapType = ( OptionModule.m_nShowZmapType And Not 1)
+         End If
+         WritePrivateProfileString(S_SCENE, K_SHOWZMAP, OptionModule.m_nShowZmapType.ToString())
+         EgtSetShowZmap( OptionModule.m_nShowZmapType, True)
+      End Set
+   End Property
+   Public Property ShowZmapLines As Boolean
+      Get
+         Return (( OptionModule.m_nShowZmapType And 2) <> 0)
+      End Get
+      Set(value As Boolean)
+         If value Then
+            OptionModule.m_nShowZmapType = ( OptionModule.m_nShowZmapType Or 2)
+         Else
+            OptionModule.m_nShowZmapType = ( OptionModule.m_nShowZmapType And Not 2)
+         End If
+         WritePrivateProfileString(S_SCENE, K_SHOWZMAP, OptionModule.m_nShowZmapType.ToString())
+         EgtSetShowZmap( OptionModule.m_nShowZmapType, True)
+      End Set
+   End Property
+   Public Property ShowZmapNormals As Boolean
+      Get
+         Return (( OptionModule.m_nShowZmapType And 4) <> 0)
+      End Get
+      Set(value As Boolean)
+         If value Then
+            OptionModule.m_nShowZmapType = ( OptionModule.m_nShowZmapType Or 4)
+         Else
+            OptionModule.m_nShowZmapType = ( OptionModule.m_nShowZmapType And Not 4)
+         End If
+         WritePrivateProfileString(S_SCENE, K_SHOWZMAP, OptionModule.m_nShowZmapType.ToString())
+         EgtSetShowZmap( OptionModule.m_nShowZmapType, True)
+      End Set
+   End Property
+   Public Property ShowZmapBiColor As Boolean
+      Get
+         Return (( OptionModule.m_nShowZmapType And 8) <> 0)
+      End Get
+      Set(value As Boolean)
+         If value Then
+            OptionModule.m_nShowZmapType = ( OptionModule.m_nShowZmapType Or 8)
+         Else
+            OptionModule.m_nShowZmapType = ( OptionModule.m_nShowZmapType And Not 8)
+         End If
+         WritePrivateProfileString(S_SCENE, K_SHOWZMAP, OptionModule.m_nShowZmapType.ToString())
+         EgtSetShowZmap( OptionModule.m_nShowZmapType, True)
+      End Set
+   End Property
+
    Public Property DxfScaleFactor As String
       Get
          Return LenToString(OptionModule.m_dDxfScaleFactor, 5)
@@ -1164,6 +1221,17 @@ Public Class OptionWindowVM
 
 #End Region
 
+#Region "Visibility"  
+
+   Public ReadOnly Property ShowZmapVisibility As Visibility
+      Get
+         Return If( (IniFile.m_nUserLevel > 5), Visibility.Visible, Visibility.Collapsed)
+      End Get
+   End Property
+
+#End Region
+
+
 #Region "COMMANDS"
 
 #Region "TopSceneBackground"
diff --git a/Project/ProjectVM.vb b/Project/ProjectVM.vb
index b668f2d..ce0b2f1 100644
--- a/Project/ProjectVM.vb
+++ b/Project/ProjectVM.vb
@@ -368,8 +368,7 @@ Public Class ProjectVM
       ' qualità di visualizzazione delle superfici
       OptionModule.SetShowSurfQuality( False)
       ' tipo visualizzazione per Zmap
-      Dim nShowZmap As Integer = GetPrivateProfileInt(S_SCENE, K_SHOWZMAP, 1)
-      EgtSetShowZmap(nShowZmap, False)
+      EgtSetShowZmap( OptionModule.m_nShowZmapType, False)
       ' dimensione lineare max in pixel delle textures
       Dim nTxrMaxLinPix As Integer = GetPrivateProfileInt(S_SCENE, K_TEXMAXLINPIX, 4096)
       EgtSetTextureMaxLinPixels(nTxrMaxLinPix)