Option Explicit
 
Private Declare Function GetTickCount Lib "kernel32" ( _
  ) As Long
 
Private Sub Delay(ByVal vMilliSeconds As Long)
 
  Dim TimeOut As Long
 
  TimeOut = GetTickCount + vMilliSeconds  'define TimeOut
  Do
    DoEvents  'System-events
  Loop Until TimeOut < GetTickCount  ' check TimeOut
 
End Sub
 
Private Sub MyEvent(ByVal vName As String)
 
  Static Guard As Integer
 
  If Guard = 0 Then
    Debug.Print vName & " - OK"
    Guard = 1
    Delay 300
    Guard = 0
  Else
    Debug.Print vName & " - Besetzt"
  End If
 
End Sub
 
Private Sub Timer1_Timer()
  MyEvent "Timer1"
End Sub
 
Private Sub Timer2_Timer()
  MyEvent "Timer2"
End Sub

Gruß
Dirk

--
?Get it right the first time