INIT OK 20.1.4

Nuvolar.Module.Win/Controllers/ListViewCustomization/ListViewModelManagerVC.vb

@@ -139,10 +139,10 @@ Public Class ListViewModelManagerVC
     Private Sub aListViewModelManager_FileBrowser_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aListViewModelManager_FileBrowser.Execute
         Dim _ListViewCustomization As ListViewCustomization = TryCast(View.SelectedObjects(0), ListViewCustomization)
         If _ListViewCustomization IsNot Nothing Then
-            Dim _OpenFileDialog As New Windows.Forms.OpenFileDialog
+            Dim _OpenFileDialog As New System.Windows.Forms.OpenFileDialog
             _OpenFileDialog.Filter = "XAFML file (.xafml)|*.xafml|All Files (*.*)|*.*"
 
-            If _OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
+            If _OpenFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                 _ListViewCustomization.XMLFileName = _OpenFileDialog.FileName
             End If
         End If

Nuvolar.Module.Win/Controllers/MasterDetailVC.vb

@@ -172,15 +172,15 @@ Public Class MasterDetailVC
             End If
         End If
     End Sub
-    Private Sub view_KeyDown(ByVal sender As Object, ByVal e As Windows.Forms.KeyEventArgs)
-        If _view.FocusedColumn IsNot column OrElse e.KeyCode <> Windows.Forms.Keys.Space Then
+    Private Sub view_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
+        If _view.FocusedColumn IsNot column OrElse e.KeyCode <> System.Windows.Forms.Keys.Space Then
             Return
         End If
         InvertRowSelection(_view.FocusedRowHandle)
     End Sub
     Private Sub View_Click(ByVal sender As Object, ByVal e As EventArgs)
         Dim info As GridHitInfo
-        Dim pt As Point = _view.GridControl.PointToClient(Windows.Forms.Control.MousePosition)
+        Dim pt As Point = _view.GridControl.PointToClient(System.Windows.Forms.Control.MousePosition)
         info = _view.CalcHitInfo(pt)
         If info.Column Is column Then
             If info.InColumn Then

Nuvolar.Module.Win/Controllers/ZIPHUVC.vb

@@ -76,7 +76,7 @@ Public Class ZIPHUVC
         _OpenFileDialog.Filter = "XLS file (.xls)|*.xls|XLSX file (.xlsx)|*.xlsx|All Files (*.*)|*.*"
 
 
-        If _OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
+        If _OpenFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
             Dim _xlsFile As String = _OpenFileDialog.FileName
             Dim _cs As String = "Provider=Microsoft.ACE.OLEDB.12.0;"
             _cs += "Data Source=" & _xlsFile.ToString & ";"