Private m_TimerActive As Boolean
 
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 
  Do While m_TimerActive
    DoEvents
    'Hier wäre noch zu überlegen, ob die Chance (Bug) besteht
    'dass m_TimerActive niemals zurückgesetzt wird, evtl. prüfen 
    'wie lang die Schleife hier durchnudelt
    'z.B. mittels DateDiff
  Loop
 
  '...
 
End Sub
 
Private Sub tmrXYZ_Timer()
 
  On Error Resume Next '!!!!!!!!!!!!!!!!!!! oder Fehlerbehandlung
                       ' du darfst aus der Prozedur nicht rausfliegen, ohne das 
                       ' Flag
                       ' zurückgesetzt zu haben!
 
  If Not m_TimerActive Then 'Verhindert Bearbeitung, falls schon eine im Gange 
  ' ist
 
    m_TimerActive = True
 
    '...
 
    m_TimerActive = False
 
  End If
 
End Sub

Gruß
Dirk

--
?Get it right the first time