'Declaraction du timer
Private _isEaten As Boolean
Public ReadOnly Property IsEated() As Boolean
    Get
        Return _isEaten
    End Get
End Property

'Sub new

_stop = New Timer
_stop.Interval = 3000
_isStoped = False

'sub manger
Public Sub isGettingStoped()
    _stop.Start()
    _isStoped = True
End Sub

'tick
Private Sub stopTick(ByVal sender As Object, ByVal e As System.EventArgs)
    _isStoped = False
    _stop.Stop()
End Sub