[XP] Startvertragertje, bestaat dat?

Option Explicit

Dim Progs As New Collection

Private Sub Form_Load()
If UBound(Split(Command)) <> 1 Then
  MsgBox "Start met: ""SlowBoot 20 10"" om eerst 20 seconden te laten wachten, dan 10 tussen elk programma. Maximaal 65 seconden voor beide waarden."
  Unload Me
Else
  Timer1.Interval = Val(Split(Command)(0)) * 1000
End If
Dim t As String
If Dir("progs.ini") <> "" Then
  Open "progs.ini" For Input As #1
    Do Until EOF(1)
      Line Input #1, t
      If t <> "" Then Progs.Add t
    Loop
  Close #1
Else
  MsgBox ("Sla een lijstje met programma's op in progs.ini")
  Unload Me
End If
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = Val(Split(Command)(1)) * 1000
If Progs.Count = 0 Then Unload Me: Exit Sub
Start Progs(1)
Progs.Remove 1
End Sub

Private Sub Start(s As String)
If InStr(s, ":") = 2 Then ChDrive Left(s, 2)  'juiste harddisk
If InStr(s, "") > 0 Then ChDir Left(s, InStrRev(s, "") - 1) 'juiste map
Shell s, vbNormalNoFocus  'programma starten
End Sub