Option Explicit
 
Private mtLastStart     As Date
 
Private Sub Form_Load()
 
  Timer1.Interval = 1000
  Timer1.Enabled = True
  mtLastStart = DateAdd("n", -61, Now)
 
End Sub
 
Private Sub Timer1_Timer()
 
  If DateDiff("n", mtLastStart, Now) >= 61 Then
    Shell "c:/programme/Mozilla Firefox/firefox.exe"
    mtLastStart = Now
  End If
 
End Sub