Dim target As DateTime
    Dim display As String
 
 
    Private Sub CountDown_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Using f As New Font("Arial", 24, FontStyle.Bold)
            e.Graphics.DrawString(display, f, Brushes.Azure, 75, 75)
        End Using
    End Sub
 
    Private Sub CountDown_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim bd As Date = CDate(DateTime.Now.ToString("dd/MM/yyyy")) ' 
        ' Mittenacht heute
 
        ' Mathematiker Lösung
        Dim nn As Integer = bd.DayOfWeek
        Dim nm As Integer = (8 - nn) Mod 7
        Dim nw As Integer = nm + 2
        If nw > 7 Then nw -= 7
        nn = nm
        If nw < nm Then nn = nw
        target = bd.AddDays(nn)
 
        ' VB Programmierer Lösung
        Dim d1 As Date = bd
        Do
            d1 = d1.AddDays(1)
        Loop Until d1.DayOfWeek = 1
 
        Dim d2 As Date = bd
        Do
            d2 = d2.AddDays(1)
        Loop Until d2.DayOfWeek = 3
 
        If d1 > d2 Then d1 = d2
        target = d1
 
        ' Nochn paar Sachen
        Timer1.Interval = 1000
        Timer1.Enabled = True
        Timer1_Tick(Nothing, Nothing)
        Me.Width = 950
        Me.Height = 250
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Dim ts As TimeSpan = target - DateTime.Now
        display = "Noch: " & ts.Days.ToString() & " Tage " & ts.Hours.ToString( _
          ) & " Stunden " & ts.Minutes.ToString & " Minuten " & _
          ts.Seconds.ToString() & " Sekunden"
        Me.Refresh()
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist