MS LOg Hensel

app/DD_PM_WINDREAM/frmMain.vb

@@ -919,8 +919,16 @@ Public Class frmMain
                 BASEDATA_DT_PROFILES_SEARCHES_SQL.Select(oExpression, "TAB_INDEX").CopyToDataTable(BASEDATA_DT_PROFILE_SEARCHES_SQL, LoadOption.PreserveChanges)
                 'CURRENT_DT_PROFILE_SEARCHES_SQL = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'SQL' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID))
 
+                Try
+                    frmValidator.Show()
+                Catch ex As Exception
+
+                    LOGGER.Warn($"Error opening Form frmValidator [{ex.Message}]")
+                    LOGGER.Warn($"ex.InnerException.Message [{ex.InnerException.Message}]")
+                    LOGGER.Warn($"ex.InnerException.Source [{ex.InnerException.Source}]")
+                    MsgBox(ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE)
+                End Try
 
-                frmValidator.Show()
 
                 'Decide_Load()
                 TimerRefresh.Enabled = True
@@ -1519,7 +1527,7 @@ Public Class frmMain
                 Dim oFoundConfig As Boolean = False
 
                 For Each row As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
-                    LOGGER.Debug($"CustomDrawGroupRow: Working on ProfileID [{row.Item("GUID")}]...")
+                    'LOGGER.Debug($"CustomDrawGroupRow: Working on ProfileID [{row.Item("GUID")}]...")
                     If row.Item("GROUP_TEXT") = info.GroupValueText Then
                         oFoundConfig = True
                         _color = row.Item("GROUP_COLOR")
@@ -1527,7 +1535,7 @@ Public Class frmMain
                     End If
                 Next
                 If oFoundConfig = False Then
-                    LOGGER.Info($"CustomDrawGroupRow: Could not find a ColorConfig for ProfileGroupValueText [{info.GroupValueText}]...")
+                    LOGGER.Debug($"CustomDrawGroupRow: Could not find a ColorConfig for ProfileGroupValueText [{info.GroupValueText}]...")
                 End If
                 Dim oColor As Color
                 Dim oFontColor As Color