MS

GUIs.ZooFlow/ClassInit.vb

@@ -207,14 +207,8 @@ Public Class ClassInit
             Dim oDatatable As DataTable = My.Database.GetDatatableIDB(oSql)
             For Each oRow As DataRow In oDatatable.Rows
                 Dim oCAT_TITLE As String = oRow.Item("CAT_TITLE")
+                Logger.Debug($"IDB_CATALOG_STRING: {oRow.Item("CAT_STRING")}")
 
-                Select Case oCAT_TITLE
-                    Case "AHWF_CMD_USR_SELECT"
-                        AHWF_CMD_USR_SELECT = oRow.Item("CAT_STRING")
-                    Case "AHWF_CMD_LAYOUT_SELECT"
-                        AHWF_CMD_LAYOUT_SELECT = oRow.Item("CAT_STRING")
-
-                End Select
             Next
 
         Catch ex As InitException
@@ -377,7 +371,8 @@ Public Class ClassInit
 
             Dim oMessage = $"{oMessageStart}{oMessage1}{oMessage2}{oMessageEnd}"
 
-            MsgBox(oMessage, MsgBoxStyle.Critical, _MainForm.Text)
+            Dim oMsgBox As New Dialog1(oMessage, _MainForm.Text, True)
+            oMsgBox.ShowDialog()
             Application.ExitThread()
         Else
             ' Copy back state from MyApplication Helper to My.Application