EgtWPFLib5/MachiningDbWindow/StoneMillingParamPageV.xaml.vb

Public Class StoneMillingParamPageV

#Region "STONE SAWING PARAM PAGE"

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BACKGROUNDCOLOR TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly GeneralBackgroundProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(GeneralBackground),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#FFFFFF"), Brush),
                                                          New PropertyChangedCallback(AddressOf GeneralBackground_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetGeneralBackground(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(GeneralBackgroundProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetGeneralBackground(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(GeneralBackgroundProperty, value)
   End Sub

   ' Declare public property.
   Public Property GeneralBackground As Brush
      Get
         Return CType(GetValue(GeneralBackgroundProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(GeneralBackgroundProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub GeneralBackground_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE FOREGROUNDCOLOR TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly GeneralForegroundProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(GeneralForeground),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(SystemColors.WindowTextBrush, New PropertyChangedCallback(AddressOf GeneralForeground_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetGeneralForeground(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(GeneralForegroundProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetGeneralForeground(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(GeneralForegroundProperty, value)
   End Sub

   ' Declare public property.
   Public Property GeneralForeground As Brush
      Get
         Return CType(GetValue(GeneralForegroundProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(GeneralForegroundProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub GeneralForeground_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BORDERBRUSHCOLOR TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly GeneralBorderBrushProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(GeneralBorderBrush),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#CFD1D4"), Brush),
                                                          New PropertyChangedCallback(AddressOf GeneralBorderBrush_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetGeneralBorderBrush(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(GeneralBorderBrushProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetGeneralBorderBrush(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(GeneralBorderBrushProperty, value)
   End Sub

   ' Declare public property.
   Public Property GeneralBorderBrush As Brush
      Get
         Return CType(GetValue(GeneralBorderBrushProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(GeneralBorderBrushProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub GeneralBorderBrush_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BORDERBRUSHISMOUSEOVER TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly BorderBrushIsMouseOverProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(BorderBrushIsMouseOver),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#7EB4EA"), Brush),
                                                          New PropertyChangedCallback(AddressOf BorderBrushIsMouseOver_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetBorderBrushIsMouseOver(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(BorderBrushIsMouseOverProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBorderBrushIsMouseOver(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(BorderBrushIsMouseOverProperty, value)
   End Sub

   ' Declare public property.
   Public Property BorderBrushIsMouseOver As Brush
      Get
         Return CType(GetValue(BorderBrushIsMouseOverProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(BorderBrushIsMouseOverProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub BorderBrushIsMouseOver_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BORDERBRUSHISMOUSERFOCUSED TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly BorderBrushIsFocusedProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(BorderBrushIsFocused),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#569DE5"), Brush),
                                                          New PropertyChangedCallback(AddressOf BorderBrushIsFocused_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetBorderBrushIsFocused(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(BorderBrushIsFocusedProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBorderBrushIsFocused(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(BorderBrushIsFocusedProperty, value)
   End Sub

   ' Declare public property.
   Public Property BorderBrushIsFocused As Brush
      Get
         Return CType(GetValue(BorderBrushIsFocusedProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(BorderBrushIsFocusedProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub BorderBrushIsFocused_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BACKGROUDBRDENABLE TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' Gestione BackgroundBrdEnable textbox
   Public Shared ReadOnly BackgroundBrdEnableProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(BackgroundBrdEnable),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#FFFFFF"), Brush),
                                                          New PropertyChangedCallback(AddressOf BackgroundBrdEnable_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetBackgroundBrdEnable(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(BackgroundBrdEnableProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBackgroundBrdEnable(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(BackgroundBrdEnableProperty, value)
   End Sub

   ' Declare public property.
   Public Property BackgroundBrdEnable As Brush
      Get
         Return CType(GetValue(BackgroundBrdEnableProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(BackgroundBrdEnableProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub BackgroundBrdEnable_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BACKGROUNDBRDDISABLE TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' Gestione BackgroundBrdDisable textbox
   Public Shared ReadOnly BackgroundBrdDisableProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(BackgroundBrdDisable),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#FFFFFF"), Brush),
                                                          New PropertyChangedCallback(AddressOf BackgroundBrdDisable_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetBackgroundBrdDisable(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(BackgroundBrdDisableProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBackgroundBrdDisable(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(BackgroundBrdDisableProperty, value)
   End Sub

   ' Declare public property.
   Public Property BackgroundBrdDisable As Brush
      Get
         Return CType(GetValue(BackgroundBrdDisableProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(BackgroundBrdDisableProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub BackgroundBrdDisable_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BACKGROUNDTXBLDISABLE TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly BackgroundTxBlDisableProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(BackgroundTxBlDisable),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#FFFFFF"), Brush),
                                                          New PropertyChangedCallback(AddressOf BackgroundTxBlDisable_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetBackgroundTxBlDisable(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(BackgroundTxBlDisableProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBackgroundTxBlDisable(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(BackgroundTxBlDisableProperty, value)
   End Sub

   ' Declare public property.
   Public Property BackgroundTxBlDisable As Brush
      Get
         Return CType(GetValue(BackgroundTxBlDisableProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(BackgroundTxBlDisableProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub BackgroundTxBlDisable_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE FOREGROUNDTXBLENABLE TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly ForegroundTxBlEnableProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(ForegroundTxBlEnable),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(SystemColors.WindowTextBrush, New PropertyChangedCallback(AddressOf ForegroundTxBlEnable_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetForegroundTxBlEnable(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(ForegroundTxBlEnableProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetForegroundTxBlEnable(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(ForegroundTxBlEnableProperty, value)
   End Sub

   ' Declare public property.
   Public Property ForegroundTxBlEnable As Brush
      Get
         Return CType(GetValue(ForegroundTxBlEnableProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(ForegroundTxBlEnableProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub ForegroundTxBlEnable_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE FOREGROUNDTXBLDISABLE TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly ForegroundTxBlDisableProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(ForegroundTxBlDisable),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(SystemColors.WindowTextBrush, New PropertyChangedCallback(AddressOf ForegroundTxBlDisable_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetForegroundTxBlDisable(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(ForegroundTxBlDisableProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetForegroundTxBlDisable(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(ForegroundTxBlDisableProperty, value)
   End Sub

   ' Declare public property.
   Public Property ForegroundTxBlDisable As Brush
      Get
         Return CType(GetValue(ForegroundTxBlDisableProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(ForegroundTxBlDisableProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub ForegroundTxBlDisable_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

#End Region    '  Stone Sawing Param Page

#Region "LOCAL GROUP BOX"

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~SPESSORE BORDER~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' Proprietà che permette di impostare l'altezza della TitleBar
   Public Shared ReadOnly MyBorderGrbThicknessProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                                                                         NameOf(MyBorderGrbThickness),
                                                                         GetType(Double),
                                                                         GetType(StoneMillingParamPageV),
                                                                         New FrameworkPropertyMetadata(1.0, FrameworkPropertyMetadataOptions.[Inherits]))
   ' Declare a get accessor method.
   Public Shared Function GetMyBorderGrbThickness(element As StoneMillingParamPageV) As Double
      Return DirectCast(element.GetValue(MyBorderGrbThicknessProperty), Double)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetMyBorderGrbThickness(element As StoneMillingParamPageV, value As Double)
      element.SetValue(MyBorderGrbThicknessProperty, value)
   End Sub

   Public Property MyBorderGrbThickness As Double
      Get
         Return DirectCast(GetValue(MyBorderGrbThicknessProperty), Double)
      End Get
      Set(ByVal value As Double)
         SetValue(MyBorderGrbThicknessProperty, value)
      End Set
   End Property

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE FOREGROUNDTXBLDISABLE TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly MyForegroundGrbColorProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(MyForegroundGrbColor),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(SystemColors.WindowBrush, New PropertyChangedCallback(AddressOf MyForegroundGrbColor_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetMyForegroundGrbColor(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(ForegroundTxBlDisableProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetMyForegroundGrbColor(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(ForegroundTxBlDisableProperty, value)
   End Sub

   ' Declare public property.
   Public Property MyForegroundGrbColor As Brush
      Get
         Return CType(GetValue(MyForegroundGrbColorProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(MyForegroundGrbColorProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub MyForegroundGrbColor_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

#End Region    ' Local Group Box

#Region "COMBOBOX MANAGE PAGE"

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BACKGROUNDCOLOR COMBOBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly BackgroundCmBxTxBlProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(BackgroundCmBxTxBl),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(New LinearGradientBrush(CType(ColorConverter.ConvertFromString("#E5E5E5"), Color), CType(ColorConverter.ConvertFromString("#F0F0F0"), Color), New Point(0.0, 0.1), New Point(0.1, 0.0)),
                                                          New PropertyChangedCallback(AddressOf BackgroundCmBxTxBl_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetBackgroundCmBxTxBl(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(BackgroundCmBxTxBlProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBackgroundCmBxTxBl(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(BackgroundCmBxTxBlProperty, value)
   End Sub

   ' Declare public property.
   Public Property BackgroundCmBxTxBl As Brush
      Get
         Return CType(GetValue(BackgroundCmBxTxBlProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(BackgroundCmBxTxBlProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub BackgroundCmBxTxBl_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE FOREGROUND COMBOBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly ForegroundCmBxTxBlProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(ForegroundCmBxTxBl),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(SystemColors.WindowTextBrush, New PropertyChangedCallback(AddressOf ForegroundCmBxTxBl_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetForegroundCmBxTxBl(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(ForegroundCmBxTxBlProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetForegroundCmBxTxBl(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(ForegroundCmBxTxBlProperty, value)
   End Sub

   ' Declare public property.
   Public Property ForegroundCmBxTxBl As Brush
      Get
         Return CType(GetValue(ForegroundCmBxTxBlProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(ForegroundCmBxTxBlProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub ForegroundCmBxTxBl_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~SPESSORE BORDER COMBOBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' Proprietà che permette di impostare l'altezza della TitleBar
   Public Shared ReadOnly BorderThicknessCmBxTxBlProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                                                                         NameOf(BorderThicknessCmBxTxBl),
                                                                         GetType(Thickness),
                                                                         GetType(StoneMillingParamPageV),
                                                                         New FrameworkPropertyMetadata(New Thickness(1), FrameworkPropertyMetadataOptions.[Inherits]))
   ' Declare a get accessor method.
   Public Shared Function GetBorderThicknessCmBxTxBl(element As StoneMillingParamPageV) As Thickness
      Return DirectCast(element.GetValue(BorderThicknessCmBxTxBlProperty), Thickness)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBorderThicknessCmBxTxBl(element As StoneMillingParamPageV, value As Thickness)
      element.SetValue(BorderThicknessCmBxTxBlProperty, value)
   End Sub

   Public Property BorderThicknessCmBxTxBl As Thickness
      Get
         Return DirectCast(GetValue(BorderThicknessCmBxTxBlProperty), Thickness)
      End Get
      Set(ByVal value As Thickness)
         SetValue(BorderThicknessCmBxTxBlProperty, value)
      End Set
   End Property

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~COLORE BORDER COMBOBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly BorderBrushCmBxTxBlProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(BorderBrushCmBxTxBl),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#ACACAC"), Brush),
                                                          New PropertyChangedCallback(AddressOf BorderBrushCmBxTxBl_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetBorderBrushCmBxTxBl(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(BorderBrushCmBxTxBlProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBorderBrushCmBxTxBl(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(BorderBrushCmBxTxBlProperty, value)
   End Sub

   ' Declare public property.
   Public Property BorderBrushCmBxTxBl As Brush
      Get
         Return CType(GetValue(BorderBrushCmBxTxBlProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(BorderBrushCmBxTxBlProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub BorderBrushCmBxTxBl_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ALLINIAMENTO VERTICALE CONTENUTO COMBOBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' Proprietà che permette di impostare l'altezza della TitleBar
   Public Shared ReadOnly VerticalContentAlignmentCmBxTxBlProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                                                                         NameOf(VerticalContentAlignmentCmBxTxBl),
                                                                         GetType(String),
                                                                         GetType(StoneMillingParamPageV),
                                                                         New FrameworkPropertyMetadata("Center", FrameworkPropertyMetadataOptions.[Inherits]))
   ' Declare a get accessor method.
   Public Shared Function GetVerticalContentAlignmentCmBxTxBl(element As StoneMillingParamPageV) As String
      Return DirectCast(element.GetValue(VerticalContentAlignmentCmBxTxBlProperty), String)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetVerticalContentAlignmentCmBxTxBl(element As StoneMillingParamPageV, value As String)
      element.SetValue(VerticalContentAlignmentCmBxTxBlProperty, value)
   End Sub

   Public Property VerticalContentAlignmentCmBxTxBl As String
      Get
         Return DirectCast(GetValue(VerticalContentAlignmentCmBxTxBlProperty), String)
      End Get
      Set(ByVal value As String)
         SetValue(VerticalContentAlignmentCmBxTxBlProperty, value)
      End Set
   End Property

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ALTEZZA COMBOBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' Proprietà che permette di impostare l'altezza della TitleBar
   Public Shared ReadOnly HeightCmBxTxBlProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                                                                         NameOf(HeightCmBxTxBl),
                                                                         GetType(String),
                                                                         GetType(StoneMillingParamPageV),
                                                                         New FrameworkPropertyMetadata("Auto", FrameworkPropertyMetadataOptions.[Inherits]))
   ' Declare a get accessor method.
   Public Shared Function GetHeightCmBxTxBl(element As StoneMillingParamPageV) As String
      Return DirectCast(element.GetValue(HeightCmBxTxBlProperty), String)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetHeightCmBxTxBl(element As StoneMillingParamPageV, value As String)
      element.SetValue(HeightCmBxTxBlProperty, value)
   End Sub

   Public Property HeightCmBxTxBl As String
      Get
         Return DirectCast(GetValue(HeightCmBxTxBlProperty), String)
      End Get
      Set(ByVal value As String)
         SetValue(HeightCmBxTxBlProperty, value)
      End Set
   End Property

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~LUNGHEZZA COMBOBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' Proprietà che permette di impostare l'altezza della TitleBar
   Public Shared ReadOnly WidthCmBxTxBlProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                                                                         NameOf(WidthCmBxTxBl),
                                                                         GetType(String),
                                                                         GetType(StoneMillingParamPageV),
                                                                         New FrameworkPropertyMetadata("Auto", FrameworkPropertyMetadataOptions.[Inherits]))
   ' Declare a get accessor method.
   Public Shared Function GetWidthCmBxTxBl(element As StoneMillingParamPageV) As String
      Return DirectCast(element.GetValue(WidthCmBxTxBlProperty), String)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetWidthCmBxTxBl(element As StoneMillingParamPageV, value As String)
      element.SetValue(WidthCmBxTxBlProperty, value)
   End Sub

   Public Property WidthCmBxTxBl As String
      Get
         Return DirectCast(GetValue(WidthCmBxTxBlProperty), String)
      End Get
      Set(ByVal value As String)
         SetValue(WidthCmBxTxBlProperty, value)
      End Set
   End Property

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE FOREGROUND TEXTBOX COMBOBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly ForegroundTextBoxCmBxTxBlProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(ForegroundTextBoxCmBxTxBl),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(SystemColors.WindowTextBrush, New PropertyChangedCallback(AddressOf ForegroundTextBoxCmBxTxBl_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetForegroundTextBoxCmBxTxBl(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(ForegroundCmBxTxBlProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetForegroundTextBoxCmBxTxBl(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(ForegroundCmBxTxBlProperty, value)
   End Sub

   ' Declare public property.
   Public Property ForegroundTextBoxCmBxTxBl As Brush
      Get
         Return CType(GetValue(ForegroundTextBoxCmBxTxBlProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(ForegroundTextBoxCmBxTxBlProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub ForegroundTextBoxCmBxTxBl_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BACKGROUNDCOLORLIST COMBOBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly BackgroundListCmBxTxBlProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(BackgroundListCmBxTxBl),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#FFFFFF"), Brush),
                                                          New PropertyChangedCallback(AddressOf BackgroundListCmBxTxBl_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetBackgroundListCmBxTxBl(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(BackgroundListCmBxTxBlProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBackgroundListCmBxTxBl(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(BackgroundListCmBxTxBlProperty, value)
   End Sub

   ' Declare public property.
   Public Property BackgroundListCmBxTxBl As Brush
      Get
         Return CType(GetValue(BackgroundListCmBxTxBlProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(BackgroundListCmBxTxBlProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub BackgroundListCmBxTxBl_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


#End Region    ' ComboBox Manage Page

#Region "CHECK BOX"

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE FOREGROUNDCOLOR CHECKBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly MyForegroundChColorProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(ForegroundChxTxBl),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(SystemColors.WindowTextBrush, New PropertyChangedCallback(AddressOf MyForegroundChColor_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetMyForegroundChColor(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(MyForegroundChColorProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetMyForegroundChColor(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(MyForegroundChColorProperty, value)
   End Sub

   ' Declare public property.
   Public Property ForegroundChxTxBl As Brush
      Get
         Return CType(GetValue(MyForegroundChColorProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(MyForegroundGrbColorProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub MyForegroundChColor_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

#End Region    ' Check Box

#Region "TOGGLE BUTTON STYLE"

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BACKGROUNDCOLOR TOGGLE BUTTON~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly BackgroundIsCheckedProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(BackgroundIsChecked),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#DDDDDD"), Brush),
                                                          New PropertyChangedCallback(AddressOf BackgroundIsChecked_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetBackgroundIsChecked(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(BackgroundIsCheckedProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBackgroundIsChecked(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(BackgroundIsCheckedProperty, value)
   End Sub

   ' Declare public property.
   Public Property BackgroundIsChecked As Brush
      Get
         Return CType(GetValue(BackgroundIsCheckedProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(BackgroundIsCheckedProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub BackgroundIsChecked_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE FOREGROUNDCOLOR TOGGLE BUTTON~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly ForegroundIsCheckedProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(ForegroundIsChecked),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(SystemColors.WindowTextBrush, New PropertyChangedCallback(AddressOf ForegroundIsChecked_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetForegroundIsChecked(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(ForegroundIsCheckedProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetForegroundIsChecked(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(ForegroundIsCheckedProperty, value)
   End Sub

   ' Declare public property.
   Public Property ForegroundIsChecked As Brush
      Get
         Return CType(GetValue(ForegroundIsCheckedProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(ForegroundIsCheckedProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub ForegroundIsChecked_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BORDERBRUSHCOLOR TOGGLE BUTTON~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly BorderBrushIsCheckedProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(BorderBrushIsChecked),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#707070"), Brush),
                                                          New PropertyChangedCallback(AddressOf BorderBrushIsChecked_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetBorderBrushIsChecked(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(ForegroundIsCheckedProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBorderBrushIsChecked(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(ForegroundIsCheckedProperty, value)
   End Sub

   ' Declare public property.
   Public Property BorderBrushIsChecked As Brush
      Get
         Return CType(GetValue(BorderBrushIsCheckedProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(BorderBrushIsCheckedProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub BorderBrushIsChecked_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~SPESSORE BORDER TOGGLE BUTTON~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' Proprietà che permette di impostare l'altezza della TitleBar
   Public Shared ReadOnly BorderThicknessIsCheckedProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                                                                         NameOf(BorderThicknessIsChecked),
                                                                         GetType(Thickness),
                                                                         GetType(StoneMillingParamPageV),
                                                                         New FrameworkPropertyMetadata(New Thickness(1), FrameworkPropertyMetadataOptions.[Inherits]))
   ' Declare a get accessor method.
   Public Shared Function GetBorderThicknessIsChecked(element As StoneMillingParamPageV) As Thickness
      Return DirectCast(element.GetValue(BorderThicknessIsCheckedProperty), Thickness)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBorderThicknessIsChecked(element As StoneMillingParamPageV, value As Thickness)
      element.SetValue(BorderThicknessIsCheckedProperty, value)
   End Sub

   Public Property BorderThicknessIsChecked As Thickness
      Get
         Return DirectCast(GetValue(BorderThicknessIsCheckedProperty), Thickness)
      End Get
      Set(ByVal value As Thickness)
         SetValue(BorderThicknessIsCheckedProperty, value)
      End Set
   End Property

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~OPACITA' TOGGLE BUTTON~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' Proprietà che permette di impostare l'altezza della TitleBar
   Public Shared ReadOnly OpacityIsCheckedProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                                                                         NameOf(OpacityIsChecked),
                                                                         GetType(Double),
                                                                         GetType(StoneMillingParamPageV),
                                                                         New FrameworkPropertyMetadata(0.3, FrameworkPropertyMetadataOptions.[Inherits]))
   ' Declare a get accessor method.
   Public Shared Function GetOpacityIsChecked(element As StoneMillingParamPageV) As Double
      Return DirectCast(element.GetValue(OpacityIsCheckedProperty), Double)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetOpacityIsChecked(element As StoneMillingParamPageV, value As Double)
      element.SetValue(OpacityIsCheckedProperty, value)
   End Sub

   Public Property OpacityIsChecked As Double
      Get
         Return DirectCast(GetValue(OpacityIsCheckedProperty), Double)
      End Get
      Set(ByVal value As Double)
         SetValue(OpacityIsCheckedProperty, value)
      End Set
   End Property

#End Region    '  Toggle Button Style

#Region "DATAGRID"

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BACKGROUND DATAGRID~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly BackgroundDataGridProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(BackgroundDataGrid),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(SystemColors.ControlBrush, New PropertyChangedCallback(AddressOf BackgroundDataGrid_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetBackgroundDataGrid(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(BackgroundDataGridProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBackgroundDataGrid(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(BackgroundDataGridProperty, value)
   End Sub

   ' Declare public property.
   Public Property BackgroundDataGrid As Brush
      Get
         Return CType(GetValue(BackgroundDataGridProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(BackgroundDataGridProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub BackgroundDataGrid_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BORDERBRUSH DATAGRID~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly BorderBrushDataGridProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(BorderBrushDataGrid),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#688CAF"), Brush),
                                                          New PropertyChangedCallback(AddressOf BorderBrushDataGrid_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetBorderBrushDataGrid(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(BorderBrushDataGridProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBorderBrushDataGrid(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(BorderBrushDataGridProperty, value)
   End Sub

   ' Declare public property.
   Public Property BorderBrushDataGrid As Brush
      Get
         Return CType(GetValue(BorderBrushDataGridProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(BorderBrushDataGridProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub BorderBrushDataGrid_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BACKGROUNDROW DATAGRID~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly BackgroundDataGridRowProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(BackgroundDataGridRow),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(SystemColors.WindowBrush, New PropertyChangedCallback(AddressOf BackgroundDataGridRow_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetBackgroundDataGridRow(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(BackgroundDataGridRowProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBackgroundDataGridRow(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(BackgroundDataGridRowProperty, value)
   End Sub

   ' Declare public property.
   Public Property BackgroundDataGridRow As Brush
      Get
         Return CType(GetValue(BackgroundDataGridRowProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(BackgroundDataGridRowProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub BackgroundDataGridRow_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE FOREGROUNDHEADER DATAGRIDROW~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly ForegroundDataGridRowProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(ForegroundDataGridRow),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(SystemColors.ControlTextBrush, New PropertyChangedCallback(AddressOf ForegroundDataGridRow_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetForegroundDataGridRow(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(ForegroundDataGridRowProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetForegroundDataGridRow(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(ForegroundDataGridRowProperty, value)
   End Sub

   ' Declare public property.
   Public Property ForegroundDataGridRow As Brush
      Get
         Return CType(GetValue(ForegroundDataGridRowProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(ForegroundDataGridRowProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub ForegroundDataGridRow_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~SPESSORE BORDER DATAGRIDROW~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' Proprietà che permette di impostare l'altezza della TitleBar
   Public Shared ReadOnly BorderThicknessDataGridRowProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                                                                         NameOf(BorderThicknessDataGridRow),
                                                                         GetType(Thickness),
                                                                         GetType(StoneMillingParamPageV),
                                                                         New FrameworkPropertyMetadata(New Thickness(1), FrameworkPropertyMetadataOptions.[Inherits]))
   ' Declare a get accessor method.
   Public Shared Function GetBorderThicknessDataGridRow(element As StoneMillingParamPageV) As Thickness
      Return DirectCast(element.GetValue(BorderThicknessDataGridRowProperty), Thickness)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBorderThicknessDataGridRow(element As StoneMillingParamPageV, value As Thickness)
      element.SetValue(BorderThicknessDataGridRowProperty, value)
   End Sub

   Public Property BorderThicknessDataGridRow As Thickness
      Get
         Return DirectCast(GetValue(BorderThicknessDataGridRowProperty), Thickness)
      End Get
      Set(ByVal value As Thickness)
         SetValue(BorderThicknessDataGridRowProperty, value)
      End Set
   End Property

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BORDERBRUSH DATAGRIDROW~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly BorderBrushDataGridRowProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(BorderBrushDataGridRow),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#688CAF"), Brush),
                                                          New PropertyChangedCallback(AddressOf BorderBrushDataGridRow_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetBorderBrushDataGridRow(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(BorderBrushDataGridRowProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBorderBrushDataGridRow(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(BorderBrushDataGridRowProperty, value)
   End Sub

   ' Declare public property.
   Public Property BorderBrushDataGridRow As Brush
      Get
         Return CType(GetValue(BorderBrushDataGridRowProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(BorderBrushDataGridRowProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub BorderBrushDataGridRow_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~SPESSORE BORDER DATAGRIDCELL~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' Proprietà che permette di impostare l'altezza della TitleBar
   Public Shared ReadOnly BorderThicknessDataGridCellProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                                                                         NameOf(BorderThicknessDataGridCell),
                                                                         GetType(Thickness),
                                                                         GetType(StoneMillingParamPageV),
                                                                         New FrameworkPropertyMetadata(New Thickness(1), FrameworkPropertyMetadataOptions.[Inherits]))
   ' Declare a get accessor method.
   Public Shared Function GetBorderThicknessDataGridCell(element As StoneMillingParamPageV) As Thickness
      Return DirectCast(element.GetValue(BorderThicknessDataGridCellProperty), Thickness)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBorderThicknessDataGridCell(element As StoneMillingParamPageV, value As Thickness)
      element.SetValue(BorderThicknessDataGridCellProperty, value)
   End Sub

   Public Property BorderThicknessDataGridCell As Thickness
      Get
         Return DirectCast(GetValue(BorderThicknessDataGridCellProperty), Thickness)
      End Get
      Set(ByVal value As Thickness)
         SetValue(BorderThicknessDataGridCellProperty, value)
      End Set
   End Property

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BORDERBRUSH DATAGRIDCELL~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly BorderBrushDataGridCellProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(BorderBrushDataGridCell),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(Brushes.Transparent, New PropertyChangedCallback(AddressOf BorderBrushDataGridCell_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetBorderBrushDataGridCell(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(BorderBrushDataGridCellProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBorderBrushDataGridCell(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(BorderBrushDataGridCellProperty, value)
   End Sub

   ' Declare public property.
   Public Property BorderBrushDataGridCell As Brush
      Get
         Return CType(GetValue(BorderBrushDataGridCellProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(BorderBrushDataGridCellProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub BorderBrushDataGridCell_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE HEADER VISIBILITY DATAGRID~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly HeaderVisibilityProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(HeaderVisibility),
                            GetType(DataGridHeadersVisibility),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(DataGridHeadersVisibility.Column, New PropertyChangedCallback(AddressOf HeaderVisibility_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetHeaderVisibility(element As StoneMillingParamPageV) As DataGridHeadersVisibility
      Return DirectCast(element.GetValue(HeaderVisibilityProperty), DataGridHeadersVisibility)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetHeaderVisibility(element As StoneMillingParamPageV, value As DataGridHeadersVisibility)
      element.SetValue(HeaderVisibilityProperty, value)
   End Sub

   ' Declare public property.
   Public Property HeaderVisibility As DataGridHeadersVisibility
      Get
         Return CType(GetValue(HeaderVisibilityProperty), DataGridHeadersVisibility)
      End Get
      Set(value As DataGridHeadersVisibility)
         SetValue(HeaderVisibilityProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub HeaderVisibility_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BACKGROUNDHEADER DATAGRID~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly BackGroundHeaderProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(BackGroundHeader),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(SystemColors.ControlBrush, New PropertyChangedCallback(AddressOf BackGroundHeader_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetBackGroundHeader(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(BackGroundHeaderProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBackGroundHeader(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(BackGroundHeaderProperty, value)
   End Sub

   ' Declare public property.
   Public Property BackGroundHeader As Brush
      Get
         Return CType(GetValue(BackGroundHeaderProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(BackGroundHeaderProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub BackGroundHeader_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE FOREGROUNDHEADER DATAGRID~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly ForegroundHeaderProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(ForegroundHeader),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(SystemColors.ControlTextBrush, New PropertyChangedCallback(AddressOf ForegroundHeader_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetForegroundHeader(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(ForegroundHeaderProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetForegroundHeader(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(ForegroundHeaderProperty, value)
   End Sub

   ' Declare public property.
   Public Property ForegroundHeader As Brush
      Get
         Return CType(GetValue(ForegroundHeaderProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(ForegroundHeaderProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub ForegroundHeader_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BORDERBRUSH DATAGRID~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   Public Shared ReadOnly BorderBrushHeaderProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                            NameOf(BorderBrushHeader),
                            GetType(Brush),
                            GetType(StoneMillingParamPageV),
                            New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#688CAF"), Brush),
                                                          New PropertyChangedCallback(AddressOf BorderBrushHeader_PropertyChanged)) With {.BindsTwoWayByDefault = True})

   ' Declare a get accessor method.
   Public Shared Function GetBorderBrushHeader(element As StoneMillingParamPageV) As Brush
      Return DirectCast(element.GetValue(BorderBrushHeaderProperty), Brush)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBorderBrushHeader(element As StoneMillingParamPageV, value As Brush)
      element.SetValue(BorderBrushHeaderProperty, value)
   End Sub

   ' Declare public property.
   Public Property BorderBrushHeader As Brush
      Get
         Return CType(GetValue(BorderBrushHeaderProperty), Brush)
      End Get
      Set(value As Brush)
         SetValue(BorderBrushHeaderProperty, value)
      End Set
   End Property

   ' Declare method invoke by changing property.
   Private Shared Sub BorderBrushHeader_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
      Dim TempMe As StoneMillingParamPageV = DirectCast(sender, StoneMillingParamPageV)
   End Sub

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~SPESSORE BORDER DATAGRID~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' Proprietà che permette di impostare l'altezza della TitleBar
   Public Shared ReadOnly BorderThicknessHeaderProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                                                                         NameOf(BorderThicknessHeader),
                                                                         GetType(Thickness),
                                                                         GetType(StoneMillingParamPageV),
                                                                         New FrameworkPropertyMetadata(New Thickness(0), FrameworkPropertyMetadataOptions.[Inherits]))
   ' Declare a get accessor method.
   Public Shared Function GetBorderThicknessHeader(element As StoneMillingParamPageV) As Thickness
      Return DirectCast(element.GetValue(BorderThicknessHeaderProperty), Thickness)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetBorderThicknessHeader(element As StoneMillingParamPageV, value As Thickness)
      element.SetValue(BorderThicknessHeaderProperty, value)
   End Sub

   Public Property BorderThicknessHeader As Thickness
      Get
         Return DirectCast(GetValue(BorderThicknessHeaderProperty), Thickness)
      End Get
      Set(ByVal value As Thickness)
         SetValue(BorderThicknessHeaderProperty, value)
      End Set
   End Property

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~SPESSORE CARATTERE DATAGRID~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   ' Proprietà che permette di impostare l'altezza della TitleBar
   Public Shared ReadOnly FontWeightHeaderProperty As DependencyProperty = DependencyProperty.RegisterAttached(
                                                                         NameOf(FontWeightHeader),
                                                                         GetType(FontWeight),
                                                                         GetType(StoneMillingParamPageV),
                                                                         New FrameworkPropertyMetadata(FontWeights.Normal, FrameworkPropertyMetadataOptions.[Inherits]))
   ' Declare a get accessor method.
   Public Shared Function GetFontWeightHeader(element As StoneMillingParamPageV) As FontWeight
      Return DirectCast(element.GetValue(FontWeightHeaderProperty), FontWeight)
   End Function

   ' Declare a set accessor method.
   Public Shared Sub SetFontWeightHeader(element As StoneMillingParamPageV, value As FontWeight)
      element.SetValue(FontWeightHeaderProperty, value)
   End Sub

   Public Property FontWeightHeader As FontWeight
      Get
         Return DirectCast(GetValue(FontWeightHeaderProperty), FontWeight)
      End Get
      Set(ByVal value As FontWeight)
         SetValue(FontWeightHeaderProperty, value)
      End Set
   End Property

   ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

#End Region    ' DataGrid

End Class