MS Skins

Global_Indexer/frmStart.vb

@@ -8,6 +8,7 @@ Imports DigitalData.Modules.Language
 Imports DigitalData.Modules.Windows
 Imports DigitalData.Modules.License
 Imports DigitalData.GUIs.Common
+Imports DevExpress.LookAndFeel
 
 Public Class frmStart
     Public LicenseManager As LicenseManagerLegacy
@@ -93,6 +94,10 @@ Public Class frmStart
             End If
             DATABASE_ECM.ExecuteNonQuery("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
 
+            If CONFIG.Config.MyFormsDesign <> "" Then
+                UserLookAndFeel.Default.SetSkinStyle(CONFIG.Config.MyFormsDesign)
+            End If
+
             TopMost = True
 
         Catch ex As Exception
@@ -674,4 +679,8 @@ Public Class frmStart
     Private Sub LabelControl1_DragLeave(sender As Object, e As EventArgs) Handles LabelControl1.DragLeave
         'PictureEdit1.Visible = False
     End Sub
+
+    Private Sub frmStart_GiveFeedback(sender As Object, e As GiveFeedbackEventArgs) Handles Me.GiveFeedback
+
+    End Sub
 End Class