Imports System.Drawing
Imports System.Windows.Forms


Public Class frmDialog
    Private Is_Error As Boolean
    Private MyTitle As String
    Private MyMessage As String
    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.
        Is_Error = IsError
        MyTitle = pTitle
        MyMessage = pMessageText

    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

    Private Sub frmDialog_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.lblMeldung.Text = MyMessage
        Me.Text = MyTitle
        If Is_Error = True Then
            PanelControl1.BackColor = Color.Red
            Cancel_Button.Visible = False
        Else
            PanelControl1.BackColor = Color.OrangeRed
            Cancel_Button.Visible = True
        End If
    End Sub
End Class