Public Class frmBlödeReklame
 
    Dim WithEvents tim As New Timer _
        With {.Interval = 1000}
 
    Dim lbl1 As New Label With _
        {.Parent = Me, .Text = "Hier könnte Ihre Werbung stehen", _
         .Visible = False, .Width = 300}
 
    Dim lbl2 As New Label With _
        {.Parent = Me, .Text = "Hier könnte Ihr Angebot stehen", _
         .Visible = False, .Top = 100, .Width = 300}
 
    Dim lblCD As New Label With _
        {.Parent = Me, .Visible = False, .Top = 200, .Width = 300}
 
    Dim startcommercial, endcommercial As Date
 
 
    Private Sub frmBlödeReklame_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        startcommercial = DateTime.Now
        endcommercial = startcommercial.AddSeconds(615) '10 Minuten + 15 
        ' Sekunden
        tim.Enabled = True
    End Sub
 
 
    Private Sub tim_Tick(sender As Object, _
        e As System.EventArgs) Handles tim.Tick
 
        Dim iv As New TimeSpan _
           (DateTime.Now.Ticks - startcommercial.Ticks)
 
        Dim countdown As New TimeSpan _
           (endcommercial.Ticks - DateTime.Now.Ticks)
 
        If iv.Ticks > TimeSpan.TicksPerSecond * 5 AndAlso _
            lbl1.Visible = False Then
            lbl1.Visible = True
        End If
        If iv.Ticks > TimeSpan.TicksPerSecond * 10 AndAlso _
            lbl2.Visible = False Then
            lbl2.Visible = True
        End If
        If iv.Ticks > TimeSpan.TicksPerSecond * 15 Then
            lblCD.Visible = True
            lblCD.Text = "Anzeige steht noch " & _
               countdown.TotalMinutes.ToString("0") & " Minuten"
        End If
        If DateTime.Now > endcommercial.AddMinutes(-1) Then
            lbl1.Visible = False 
            lbl2.Visible = False 
            lblCD.Visible = False
            tim.Enabled = False
        End If
    End Sub
End Class