Protected Overrides Sub OnStart(ByVal args() As String)
        .....
        tTimeInterval.Start()
    End Sub

    Protected Overrides Sub OnStop()
        tTimeInterval.Stop()
    End Sub

    Private Sub tTimeInterval_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tTimeInterval.Tick
        classSMS.sendMessage()
    End Sub