Public Class frmNotify
    Public Y As Integer = 0
    Public AvisoID As Integer = 0

    Sub New(title As String, text As String)
        Me.InitializeComponent()
        Me.lblTitle.Text = title
        Me.lblText.Text = text
    End Sub

    Sub New(typ As Integer, text As String, id As Integer)
        Me.InitializeComponent()
        Me.AvisoID = id
        Select Case typ
            Case 1
                Me.lblTitle.Text = "LKW Standzeit Benachrichtigung"
                Me.lblText.Text = "Der LKW '" & text & "' ist vor über 2 Stunden eingetroffen."
            Case 2
                Me.lblTitle.Text = "LKW Standzeit - Vermerk eintragen"
                Me.lblText.Text = "Der LKW '" & text & "' ist vor über 2 Stunden eingetroffen." &
                    "Bitte VERMERK eintragen!"
            Case 3
                Me.lblTitle.Text = "LKW Standzeit Benachrichtigung"
                Me.lblText.Text = "Der LKW '" & text & "' steht bereits über 24 Stunden!"
                Me.Header.BackColor = Color.Red
        End Select

    End Sub

    Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
        Me.Close()
    End Sub

    Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub

    Private Sub frmNotify_Load(sender As Object, e As EventArgs) Handles Me.Load
        lblText.Cursor = IIf(AvisoID > 0, Cursors.Hand, Cursors.Default)
        'If Y = 0 Then
        'Me.Location = New Point(Me.Owner.Width - Me.Width - 10, Me.Owner.Height - Me.Height - 10)
        ' Else
        ' Me.Location = New Point(Me.Owner.Width - Me.Width - 10, Y)
        ' End If
        Dim WIDTH = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Width
        Dim hEIGHT = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Width
        If Y = 0 Then
            Me.Location = New Point(WIDTH - Me.Width - 10, hEIGHT - Me.Height - 10)
        Else
            Me.Location = New Point(WIDTH - Me.Width - 10, Y)
        End If
    End Sub

    Private Sub lblText_Click(sender As Object, e As EventArgs) Handles lblText.Click
        frmHauptfenster.Details_anzeigen(AvisoID)
        Me.Close()
    End Sub
End Class