MS

GUIs.ZooFlow/ClassDragDrop.vb

@@ -3,6 +3,7 @@ Imports DevExpress.XtraGrid.Views.Grid
 Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Base
+Imports DigitalData.GUIs.Common
 
 Public Class ClassDragDrop
     Inherits BaseClass
@@ -99,7 +100,7 @@ Public Class ClassDragDrop
         Catch ex As Exception
             Logger.Error(ex)
 
-            Dim oMsgBox As New Dialog1("Error in view_MouseMove: " & ex.Message, "", True)
+            Dim oMsgBox As New frmDialog("Error in view_MouseMove: " & ex.Message, "", True)
             oMsgBox.ShowDialog()
         End Try
     End Sub