Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
 
  Static iGuard As Integer = 0
 
  If iGuard = 0 Then
    iGuard = 1
 
    '...
 
    iGuard = 0
  Else
    Debug.Assert(False) 'Reentrention
 
  End If
 
 
End Sub

Gruß
Dirk

--
?Get it right the first time

Beitrag wurde zuletzt am 05.11.10 um 14:12:33 editiert.