MS

app/DD-Record-Organiser/frmMessageBox.vb

@@ -7,9 +7,35 @@ Public Class frmMessageBox
         Me.Close()
     End Sub
 
-    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
-        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.Close()
+
+    Private Sub frmMessageBox_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Try
+            Select Case MSG_TYPE
+                Case "ERROR"
+                    OK_Button.Image = My.Resources.delete
+                Case Else
+                    OK_Button.Image = Nothing
+            End Select
+            Me.Text = MSG_TITLE
+            If MSG_LABLE2 = String.Empty Then
+                Me.Size = New Size(449, 177)
+                Me.lblmsg2.Visible = False
+                Me.txtmsg2.Visible = False
+            Else
+                Me.Size = New Size(449, 251)
+                Me.lblmsg2.Visible = True
+                Me.txtmsg2.Visible = True
+                Me.lblmsg2.Text = MSG_LABLE2
+                Me.txtmsg2.Text = MSG_ERROR2
+            End If
+            Me.lblmsg1.Text = MSG_LABLE1
+            Me.txtmsg1.Text = MSG_ERROR1
+        Catch ex As Exception
+            MsgBox("Unexpected Error: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
     End Sub
 
+    Private Sub frmMessageBox_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        Me.BringToFront()
+    End Sub
 End Class