MS GDpictureKey in FormApp via DB

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()