VB .NET - Mostrando as Horas

Public Class Form1

    Dim Segundos, Minutos, Horas As Int32

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Timer1.Enabled = True

        Me.Timer1.Interval = 900

        Me.Labeltime.Text = ""

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Segundos += 1

        If Segundos = 59 Then

            Minutos += 1

            Segundos = 0

            If Minutos = 59 Then

                Horas += 1

                Minutos = 0

                If Horas = 24 Then

                    Horas = 0

                End If

            End If

        End If

        Me.Labeltime.Text = Horas & " horas(s) " & Minutos & " minuto(s) " & Segundos & " segundo(s)"

    End Sub

End Class

 Espero ter ajudado... Abraços...

Pegue o projeto neste link: http://www.mediafire.com/download.php?3veeb18p42jghp1