Public Class zeit
    Enum Zeiteinheit As Integer
        Stunde = 1
        Minute = 60
        Sekunde = 3600
    End Enum
    Private mTime As DateTime
    Public Sub New(ByVal Stunde As Short, _
  ByVal Minute As Short, _
  ByVal Sekunde As Short)
        mTime = New DateTime(1, 1, 1, Stunde, Minute, Sekunde)
    End Sub
    Public Sub Addieren(ByVal Anzahl As Short, ByVal Einheit As Zeiteinheit)
        Select Case Einheit
            Case Zeiteinheit.Sekunde
                mTime = mTime.AddSeconds(Anzahl)
            Case Zeiteinheit.Minute
                mTime = mTime.AddMinutes(Anzahl)
            Case Zeiteinheit.Stunde
                mTime = mTime.AddHours(Anzahl)
        End Select
    End Sub
    Sub Anzeigen()
        Console.WriteLine("Zeit: {0} ", mTime.ToLongTimeString)
        Console.ReadLine()
    End Sub
End Class

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus