Sub Form_Load()
   Timer1.Enabled = False
   Timer1.Interval = 5000
End Sub
 
Sub Command_Click()
 
  'Verhindert mehrfaches ausführen
  If Timer1.Enabled Then Exit Sub
 
  Timer1.Enabled = True
  Do Until Timer1.Enabled = False
     '...
    DoEvents
  Loop
 
End Sub
 
Sub Timer1_Timer()
  Timer1.Enabled = False
End Sub

Gruß
Dirk

--
?Get it right the first time