countdown in sec.,min. und std.

 Private Sub Eigener_Countdown_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Eigener_Countdown.Tick

        count = count - 1
        ProgressBar1.Value = ProgressBar1.Value + 1
        Label5.Text = count
        If count = 0 Then
            ProgressBar1.Value = 0
            Label8.Text = "Ende"
            Eigener_Countdown.Stop()
            TextBox1.Enabled = True
            Button1.Visible = True
        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Button3.Visible = True
        Label8.Text = "-"
        Button1.Visible = False
        ProgressBar1.Maximum = TextBox1.Text
        count = TextBox1.Text
        Eigener_Countdown.Interval = 1000
        Eigener_Countdown.Start()
        TextBox1.Clear()
        TextBox1.Enabled = False

    End Sub

Public Class Form1
    Dim TimeLeft As ULong
    Dim EndZeit, StartZeit As UInteger
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tmp1, tmp2, tmp3 As Integer
        tmp1 = TimeOfDay.Hour + 1 'Oder was auch immer musst halt selbst wissen wie lange der laufen soll in meinem Falle läuft er jetzt 1Std'
        tmp2 = TimeOfDay.Minute
        tmp3 = TimeOfDay.Second
        EndZeit = tmp1 * 60 * 60
        EndZeit = EndZeit + tmp2 * 60
        EndZeit = EndZeit + tmp3

        tmp1 = TimeOfDay.Hour
        tmp2 = TimeOfDay.Minute
        tmp3 = TimeOfDay.Second
        StartZeit = tmp1 * 60 * 60
        StartZeit = StartZeit + tmp2 * 60
        StartZeit = StartZeit + tmp3
        TimeLeft = EndZeit - StartZeit
        Timer1.Interval = 1000
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        TimeLeft = TimeLeft - 1
        Label1.Text = TimeLeft
        If TimeLeft = 0 Then
            Label1.Text = "CountDown Beendet"
            Timer1.Stop()
        End If
    End Sub
End Class

Private Function GetTimeInterval(ByVal nSeks As Long) As String
  Dim h As Long, m As Long
  Dim sInterv As String
 
  h = nSeks \ 3600
  nSeks = nSeks Mod 3600
  m = nSeks \ 60
  nSeks = nSeks Mod 60
 
  sInterv = Format(h, "00") & ":" & Format(m, "00") & ":" & Format(nSeks, "00")
 
  GetTimeInterval = sInterv
End Function

DateTime endTime = new DateTime(2013,01,01,0,0,0);
private void button1_Click(object sender, EventArgs e)
{ 
    Timer t = new Timer();
    t.Interval = 500;
    t.Tick +=new EventHandler(t_Tick);
    TimeSpan ts = endTime.Subtract(DateTime.Now);
    label1.Text = ts.ToString("d' Days 'h' Hours 'm' Minutes 's' Seconds'");
    t.Start();
}

void  t_Tick(object sender, EventArgs e)
{
    TimeSpan ts = endTime.Subtract(DateTime.Now);
    label1.Text = ts.ToString("d' Days 'h' Hours 'm' Minutes 's' Seconds'");
}

Private endTime As New DateTime(2013, 1, 1, 0, 0, 0)
Private Sub button1_Click(sender As Object, e As EventArgs)
	Dim t As New Timer()
	t.Interval = 500
	t.Tick += New EventHandler(AddressOf t_Tick)
	Dim ts As TimeSpan = endTime.Subtract(DateTime.Now)
	label1.Text = ts.ToString("d' Days 'h' Hours 'm' Minutes 's' Seconds'")
	t.Start()
End Sub

Private Sub t_Tick(sender As Object, e As EventArgs)
	Dim ts As TimeSpan = endTime.Subtract(DateTime.Now)
	label1.Text = ts.ToString("d' Days 'h' Hours 'm' Minutes 's' Seconds'")
End Sub