Public Class frmDemoMode
    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click

    End Sub

    Public Sub New(Optional Formulartitel As String = "")
        InitializeComponent()
        Me.Text = Formulartitel
        If Formulartitel = "" Then Me.Text = My.Settings.SoftwareType
    End Sub



    Private Sub frmDemoMode_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.lblprodukt.Text = Globals.Productname
        Me.lblVersion.Text = Globals.Version
        Me.lblDatum.Text = Globals.Versionastaum
        Me.lblSN.Text = Globals.Seriennummer
        If Globals.License.DemoMode Then

            Me.lblLizenznehmer.Text = "Demo-Version"
            Me.lblkey.Text = Globals.License.KeyCode
        Else
            Me.lblLizenznehmer.Text = Globals.License.Lizenznahmer
            Me.lblkey.Text = Globals.License.KeyCode

        End If

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
End Class