Imports System.Drawing
Imports System.Windows.Forms

Public Class frmDialog
    Public Sub New(pMessageText As String, pTitle As String, IsError As Boolean)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

        Me.lblMeldung.Text = pMessageText
        Me.Text = pTitle
        If IsError Then
            Panel1.BackColor = Color.Red
            Cancel_Button.Visible = False
        Else
            Panel1.BackColor = Color.OrangeRed
            Cancel_Button.Visible = True
        End If
    End Sub

    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub
    Public Sub CancelButtonInvisible()
        Cancel_Button.Visible = False
    End Sub
    Public Sub CancelButtonVisible()
        Cancel_Button.Visible = True
    End Sub

End Class