Set oTask = m_oSchedule.CreateTask(sTaskName)
 
         'On Error Resume Next
 
         With oTask
 
            ' Set the exe path
            .ApplicationName = cmdlgOpenfile.FileName
 
            ' Set other properties
            .Creator = "Task Scheduler Class sample"
 
            ' Set default FlagsText
            .Flags = Interactive Or RunOnlyIfLoggedOn
 
            ' Add a m_oSchedule
            With .Triggers
 
               With .Add
                  .BeginDay = Date
                  .StartTime = Time
                  .TriggerType = DailyTrigger
                  .Daily_Interval = 1
                  '.Interval = CLng(2) <------------------------------------ 
                  ' Genau das funktioniert nicht
               End With
            End With