MS

app/DD-Record-Organiser/ClassHelper.vb

@@ -283,7 +283,20 @@ Public Class ClassHelper
             ClassLogger.Add("Unexpected Error in DeleteRecord: " & ex.Message, True)
             Return False
         End Try
-       
     End Function
+    Public Shared Sub MSGBOX_Handler(type As String, Caption As String, lbl1 As String, txt1 As String, Optional lbl2 As String = "", Optional txt2 As String = "")
+        MSG_TYPE = type
+        MSG_TITLE = Caption
+        If lbl2 = String.Empty Then
+            MSG_LABLE2 = String.Empty
+            MSG_ERROR2 = String.Empty
+        Else
+            MSG_LABLE2 = lbl2
+            MSG_ERROR2 = txt2
+        End If
+        MSG_LABLE1 = lbl1
+        MSG_ERROR1 = txt1
+        frmMessageBox.ShowDialog()
+    End Sub
 
 End Class