timer windows service

Public Class custom_timer
        Inherits Timer
        Private id As String
        Public Property Tag As String
            Get
                Return id
            End Get
            Set(ByVal value As String)
                id = value
            End Set
        End Property
    End Class



Dim t As New custom_timer
        xt1.rut(len) = rut
        t.AutoReset = False
        t.Interval = TimeSpan.Parse(elem("Intervalo").InnerXml).TotalMilliseconds
        t.Enabled = elem("Activar").InnerXml
        t.Tag = rut & "|" & elem("Id").InnerXml & "|" & elem("Config").OuterXml
        AddHandler t.Elapsed, New ElapsedEventHandler(AddressOf Timer_Elapsed1)
        xt1.tareas(len) = t
        Dim x As String = ""