Visual Basic

Dim autoEvent as New AutoResetEvent(False)
If autoEvent.WaitOne(1000) Then
   autoEvent.Reset
Else
   Close connection and inform user
End If

Sub Main
            console.writeline(getmyresult(2)) 'takes a while'
            console.writeline(getmyresult(3)) 'takes a while'
            console.writeline(getmyresult(2)) 'Should be instant'
            console.writeline(getMyresult(3)) 'Should be instant'
   End Sub

function getMyresult(X as interger) as integer
       dim Y as integer=LongCompute(X)
       return Y
end function


function LongCompute(X as integer) as integer
         system.threading.thread.sleep(1000)
         return x^2
end function