Translate UI into English and french; Extend resources and outsource hardcoded String form codebase into resources.

EnvelopeGenerator.Form/frmGhostMode.vb

@@ -1,4 +1,6 @@
-Public Class frmGhostMode
+Imports EnvelopeGenerator.CommonServices.My
+
+Public Class frmGhostMode
     Private Sub frmGhostMode_Load(sender As Object, e As EventArgs) Handles Me.Load
         Dim oSQL = "SELECT T.USERNAME,T.NAME, T.[PRENAME],T.EMAIL FROM TBDD_USER T  ORDER BY USERNAME"
         Dim DT_USER = DB_DD_ECM.GetDatatable(oSQL)
@@ -11,7 +13,7 @@
 
 
         Catch ex As Exception
-            MsgBox("Error Load_Users:" & vbNewLine & ex.Message)
+            MsgBox(Resources.Envelope.Error_LoadUsers & vbNewLine & ex.Message)
         End Try
     End Sub
 
@@ -45,7 +47,7 @@
             End If
         End Try
         If oFocusedUserName <> String.Empty Then
-            Dim result As MsgBoxResult = MsgBox("Do You really want to activate the Ghost-Mode?", MsgBoxStyle.YesNo, "")
+            Dim result As MsgBoxResult = MsgBox(Resources.Envelope.Activate_ghost_mode, MsgBoxStyle.YesNo, "")
             'wenn Speichern ja
             If result = MsgBoxResult.Yes Then
                 USER_GHOST_MODE_USRNAME = oFocusedUserName
@@ -53,7 +55,7 @@
                 Me.Close()
             End If
         Else
-            MsgBox("Please choose an user for ghostmode!", MsgBoxStyle.Information)
+            MsgBox(Resources.Envelope.Select_user_for_ghost_mode, MsgBoxStyle.Information)
         End If
     End Sub
 End Class