-Sistemato dictionary

ProjectManager/MySaveFileDialogVM.vb

@@ -1,17 +1,10 @@
-Imports System.ComponentModel
-Imports System.Collections.ObjectModel
-Imports System.IO
+Imports System.IO
 Imports EgtUILib
 
 Public Class MySaveFileDialogVM
    Inherits EgtWPFLib5.SaveFileDialogVM
 
-   Public ReadOnly Property IsFrameMsg As String
-      Get
-         ' 50727=Frame
-         Return EgtMsg(50727)
-      End Get
-   End Property
+#Region "FIELDS & PROPERTIES"
 
    Public ReadOnly Property VisibilityCreateFrameDir As Visibility
       Get
@@ -33,6 +26,29 @@ Public Class MySaveFileDialogVM
       End Set
    End Property
 
+#Region "Messages"
+
+   Public ReadOnly Property IsFrameMsg As String
+      Get
+         ' 50727=Frame
+         Return EgtMsg(50727)
+      End Get
+   End Property
+
+#End Region    ' Messages
+
+#End Region    ' Fields & Properties
+
+#Region "CONSTRUCTOR"
+
+   Public Sub New()
+      MyBase.New()
+   End Sub
+
+#End Region    ' Constructor
+
+#Region "METHODS"
+
    Friend Function MySave() As Boolean
       If IsFolder And IsFrame Then
          WriteFileName &= FRAME_FOLDER
@@ -59,8 +75,6 @@ Public Class MySaveFileDialogVM
       Return True
    End Function
 
-   Public Sub New()
-      MyBase.New()
-   End Sub
+#End Region    ' Methods
 
 End Class