MS GDpictureKey in FormApp via DB

EnvelopeGenerator.Form/Helper/Thumbnail.vb

@@ -12,7 +12,7 @@ Public Class Thumbnail
         MyBase.New(pLogConfig)
 
         GDViewer = New GdViewer()
-        Dim oGDPictureKey As String = "21182889975216572111813147150675976632"
+        Dim oGDPictureKey As String = MS_GDPICTUREKEY
 
         Dim licenseManager As GdPicture14.LicenseManager = New GdPicture14.LicenseManager()
         licenseManager.RegisterKEY(oGDPictureKey)

EnvelopeGenerator.Form/ModuleSettings.vb

@@ -4,4 +4,5 @@ Module ModuleSettings
     Public DOCUMENT_PATH_MOVE_AFTSEND As String = ""
     Public CurrLogConfig As LogConfig
     Public Directory2Delete As String = ""
+    Public MS_GDPICTUREKEY As String = ""
 End Module

EnvelopeGenerator.Form/frmEnvelopeEditor.vb

@@ -156,13 +156,12 @@ Partial Public Class frmEnvelopeEditor
 
             If ViewDocuments.GetSelectedRows().Count > 0 Then
                 Dim oDocument As EnvelopeDocument = DirectCast(ViewDocuments.GetFocusedRow(), EnvelopeDocument)
-                Dim oGDPictureKey As String = "21182889975216572111813147150675976632"
+                Dim oGDPictureKey As String = MS_GDPICTUREKEY
 
                 Dim oForm As New frmFieldEditor(State) With {
                         .Document = Controller.Envelope.Documents.
                             Where(Function(d) d.Filename = oDocument.Filename).
                             SingleOrDefault(),
-                        .GDPictureKey = oGDPictureKey,
                         .Receivers = Controller.Envelope.Receivers.ToList
                     }
                 oForm.ShowDialog()

EnvelopeGenerator.Form/frmFieldEditor.vb

@@ -19,7 +19,6 @@ Partial Public Class frmFieldEditor
     Private Controller As FieldEditorController
 
     Public Property Document As EnvelopeDocument = Nothing
-    Public Property GDPictureKey As String = ""
     Public Property Receivers As List(Of EnvelopeReceiver)
     Public Property SelectedReceiver As EnvelopeReceiver = Nothing
 
@@ -49,7 +48,7 @@ Partial Public Class frmFieldEditor
             Throw New ArgumentNullException("State")
         End If
 
-        If GDPictureKey = "" Then
+        If MS_GDPICTUREKEY = "" Then
             Throw New ArgumentNullException("GDPictureKey")
         End If
 
@@ -74,7 +73,7 @@ Partial Public Class frmFieldEditor
     End Sub
 
     Private Sub InitializeViewer()
-        DocumentViewer1.Init(LogConfig, GDPictureKey, New DigitalData.Controls.DocumentViewer.DocumentViewer.ToolbarSettings With {
+        DocumentViewer1.Init(LogConfig, MS_GDPICTUREKEY, New DigitalData.Controls.DocumentViewer.DocumentViewer.ToolbarSettings With {
             .ShowFlipButton = False,
             .ShowPrintButton = False,
             .ShowRotateButton = False,

EnvelopeGenerator.Form/frmSplashScreen.vb

@@ -79,8 +79,11 @@ Public Class frmSplashScreen
         oState.DbConfig = ConfigModel.LoadConfiguration()
         DOCUMENT_PATH_MOVE_AFTSEND = oState.DbConfig.DOCUMENT_PATH_MOVE_AFTSEND
         Worker.ReportProgress(60, "Initialize User")
+        Dim oKey = oState.Database.GetScalarValue("SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE' and ACTIVE = 1")
         Thread.Sleep(300)
-
+        If oKey.ToString <> String.Empty Then
+            MS_GDPICTUREKEY = oKey
+        End If
         Dim oUserModel = New UserModel(oState)
         oState.UserId = oUserModel.SelectUserId()