Private Sub Form_Load()
 
  Timer1.Interval = 60000
  Timer1.Enabled = True
 
End Sub
 
Private Sub Timer1_Timer()
 
  Static Z1 As Long
 
  Z1 = Z1 + 1
  If Z1 < 5 Then Exit Sub
  Z1 = 0
 
  ' Dein Code
  ' ...
 
End Sub

Gruss,

Zardoz