Function Test() As Long
 
  Static lGuard As Long
 
  If lGuard = 0 then
    'Ab hier sicherstellen, dass du aus der Funktion nicht durch einen 
    ' Laufzeitfehler rausfliegst!!!
    'Sonst war es das :-) für diese Funktion
    lGuard = 1
 
    'CODE
 
    Test = 0
    lGuard = 0
  Else
    'reentrantion
    Test = -1
  End if
 
End Function

Do While Test() = -1
  'evtl. sleep
Loop

Gruß
Dirk

--
?Get it right the first time

Beitrag wurde zuletzt am 05.04.11 um 08:33:01 editiert.