add progress box for webservice calls

MultiTool.Form/frmImportMain.vb

@@ -92,6 +92,7 @@ Public Class frmImportMain
             Database = New MSSQLServer(LogConfig, oConnectionString)
             Winline = New Data(LogConfig, Database, ConfigManager.Config)
             WebService = New WebService(LogConfig, ConfigManager.Config, Application.UserAppDataPath)
+            AddHandler WebService.WebServiceProgress, AddressOf WebService_Progress
         Catch ex As Exception
             FormHelper.ShowError(ex, My.Resources.frmImportMainExtra.Initialisieren_der_Anwendungs_Daten)
         End Try
@@ -145,8 +146,6 @@ Public Class frmImportMain
             SplashScreenManager.CloseWaitForm()
             btnLoadFiles.Enabled = True
         End Try
-
-
     End Sub
 
 
@@ -353,8 +352,9 @@ Public Class frmImportMain
 
     Private Async Sub btnTransferFile_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnTransferFile.ItemClick
         Try
-            GridViewFiles.ShowLoadingPanel()
+            SplashScreenManager.ShowWaitForm()
             SetDocumentButtonsEnabled(False)
+            GridControlFiles.Enabled = False
             btnLoadFiles.Enabled = False
             SplitContainerGrids.Enabled = False
 
@@ -371,12 +371,16 @@ Public Class frmImportMain
         Finally
             SplitContainerGrids.Enabled = True
             btnLoadFiles.Enabled = True
-            SetDocumentButtonsEnabled(False)
-            GridViewFiles.HideLoadingPanel()
-
+            GridControlFiles.Enabled = True
+            SetDocumentButtonsEnabled(True)
+            SplashScreenManager.CloseWaitForm()
         End Try
     End Sub
 
+    Private Sub WebService_Progress(sender As Object, e As String)
+        SplashScreenManager.SetWaitFormDescription(e)
+    End Sub
+
     Private Sub btnOpenInputDirectory_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnOpenInputDirectory.ItemClick
         TryOpenDirectory(ConfigManager.Config.InputDirectory, My.Resources.frmImportMainExtra.Eingangsverzeichnis)
     End Sub