Visual Basic

Delegate Sub AbortDelegate()

Public Class ReportProcesser

    Private _reportThreadID As Integer

    Friend Abort As New AbortDelegate(AddressOf AbortReport)
    Public WithEvents CheckForAbortTimer As New Timers.Timer(500)
    Public ReadOnly Property ManagedThreadID() As Integer
        Get
            Return _reportThreadID
        End Get
    End Property

    Public Sub New()
        _reportThreadID = Threading.Thread.CurrentThread.ManagedThreadId
    End Sub

    Public Sub AbortReport()

        MsgBox("Report Thread ID: " & Me.ManagedThreadID & vbCrLf & _
                "Abort Report On Thread ID: " & Threading.Thread.CurrentThread.ManagedThreadId & vbCrLf)

    End Sub

    Private Sub CheckForAbortTimer_Elapsed() Handles CheckForAbortTimer.Elapsed
        Static alreadyProcessing As Boolean = False

        If Not alreadyProcessing Then
            alreadyProcessing = True

            Me.Abort.Invoke()

            alreadyProcessing = False
        End If
    End Sub

End Class

Module Main
    Sub main()

        Dim report As New ReportProcesser
        report.CheckForAbortTimer.Start()

        Dim startTime As Date = Now
        Do Until DateDiff(DateInterval.Minute, startTime, Now) >= 5
            'end in 5 min or when stopped from Visual studio
        Loop

    End Sub
End Module