Protected Overrides Sub OnStart(ByVal args() As String)
        tTimeInterval.Enabled = True
        Try
            objEventLogWatcher = New cEventLogWatcher
            objEventLogWatcher.StartWatcher()

            Dim strUrlMelphy, strUrlSms, strTime As String

            classSMS = New cManageSms


            With classSMS
                .XmlDoc = XDocument.Load(XMLDocFilePath)
                strUrlMelphy = .XmlDoc.Elements("SMS").Elements("UrlWsMelphy").Value
                strUrlSms = .XmlDoc.Elements("SMS").Elements("UrlSMS").Value
                strTime = (CInt(classSMS.XmlDoc.Elements("SMS").Elements("TimeInterval").Value) * 1000).ToString
            End With

            ' modificare con lettura da xml
            tTimeInterval.Interval = 100 'strTime
        Catch
        End Try
    End Sub