MS Bodytext, Bugfixing deleting

EnvelopeGenerator.Form/frmMain.vb

@@ -512,6 +512,21 @@ Public Class frmMain
         End If
         bbtnitmEB.Enabled = False
         RefreshTimer.Start()
+        If USER_GHOST_MODE_ACTIVE Then
+            frmGhostMode.ShowDialog()
+            If USER_GHOST_MODE_USRNAME <> "" Then
+                MyUserModel = New UserModel(MyState)
+                MyState.UserId = MyUserModel.SelectUserId(USER_GHOST_MODE_USRNAME)
+                Dim oUser = MyUserModel.SelectUser()
+                If oUser IsNot Nothing Then
+                    MyUserModel.CheckUserLogin(oUser)
+                    BarStaticItemGhost.Caption = $"GhostMode active: {USER_GHOST_MODE_USRNAME} - End signFLOW to quit mode"
+                    BarStaticItemGhost.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+                    LoadEnvelopeData()
+                End If
+                MYUSER = oUser
+            End If
+        End If
     End Sub
 
     Private Sub bbtnitmInfoMail_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmInfoMail.ItemClick