Creazione finestra di dialogo e aggiornamento rettangoli colore del ColorPicker

Icarus/ProjManager/ProjManagerVM.vb

@@ -2,7 +2,6 @@
 Imports System.IO
 Imports EgtWPFLib5
 Imports EgtUILib
-Imports System.Windows.Forms
 
 Public Class ProjManagerVM
    Inherits VMBase
@@ -151,6 +150,27 @@ Public Class ProjManagerVM
    ''' </summary>
    Public Sub NewProjectCmd()
       NewProject(True)
+      'Dim x As New OpenFileDialog()
+      'x.ShowDialog()
+
+      Dim sDir As String = "C:\EgtData\Test3dPrinting"
+      Dim od As New EgtManageFileDialogV(Application.Current.MainWindow, New EgtManageFileDialogVM()) With {
+         .Title = "Open",
+         .Filter = "Icarus project(*.icrs)|*.icrs" &
+                   "|New geometry EgalTech(*.nge)|*.nge",
+         .FileName = "New.icrs",
+         .FilterIndex = 1,
+         .InitialDirectory = sDir}
+      od.ShowDialog()
+      Dim sFilePath As String = od.FileName
+
+      'Dim save As New EgtSaveDialogV(Application.Current.MainWindow, New EgtSaveDialogVM()) With {
+      '   .Title = "Save",
+      '   .Filter = "Icarus project(*.icrs)|*.icrs",
+      '   .FileName = "New.icrs",
+      '   .InitialDirectory = sDir}
+      'save.ShowDialog()
+      'Dim sFilePath As String = save.FileName
    End Sub
 
    Friend Sub NewProject(bDialog As Boolean)