MS

GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb

@@ -589,9 +589,13 @@ Public Class frmAdmin_Globix
     Private Sub SimpleButton4_Click(sender As Object, e As EventArgs) Handles SimpleButton4.Click
         Try
             If Regex.IsMatch(REGEXTextBox.Text, txtDateinameTest.Text) Then
-                MsgBox("The RegEx resulted in a proper match!", MsgBoxStyle.Information, "Perfect:")
+                Dim oMsgBox As New Dialog1("The RegEx resulted in a proper match!", "", False)
+                oMsgBox.ShowDialog()
+
             Else
-                MsgBox("No Match- There might be an error in the RegEx!", MsgBoxStyle.Information, "Something wrong:")
+                Dim oMsgBox As New Dialog1("No Match- There might be an error in the RegEx!", "", True)
+                oMsgBox.ShowDialog()
+
             End If
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Testing Regex: ")

GUIs.ZooFlow/Administration/frmAdmin_Start.vb

@@ -45,7 +45,8 @@ Public Class frmAdmin_Start
 
                 Load_GridData(oDetailData)
             Else
-                MsgBox($"Could not load data for Page [{oKey}] because it does not exist!", MsgBoxStyle.Critical, Text)
+                Dim oMsgBox As New Dialog1($"Could not load data for Page [{oKey}] because it does not exist!", "Error", True)
+                oMsgBox.ShowDialog()
             End If
         End If
     End Sub
@@ -64,6 +65,7 @@ Public Class frmAdmin_Start
         Else
             MsgBox($"Tag [{Page}] not found! Exiting." & vbNewLine &
                    $"Check the [ENTITY_TITLE] Column in Table [TBZF_ADMIN_SOURCE_SQL]. It must match with the Tag [{Page}] of the corresponding Tree List nodes!", MsgBoxStyle.Critical, Text)
+
             Return False
         End If