File: Begin_End_Invoke_AsyncDelegate.VB.txt
Date: 7/29/04
By: Dan Garlen, MCT
MCT04@Garlen.Net
---------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------

Module Module1
    ' http://www.dotnet247.com/247reference/msgs/26/134088.aspx

    Public Delegate Sub AsyncDelegate()

    Sub main()
        Console.WriteLine("Main Starting...")
        Dim RunDelegate As AsyncDelegate = AddressOf Run
        RunDelegate.BeginInvoke(AddressOf Callback, RunDelegate)
        Console.WriteLine("Main Ending.")
        Console.ReadLine()
    End Sub

    Public Sub Callback(ByVal ar As IAsyncResult)
        Console.WriteLine("Callback Starting...")
        ar.AsyncState.EndInvoke(ar)
        Console.WriteLine("Callback End.")
    End Sub

    Public Sub Run()
        Console.WriteLine("Run Starting...")
        System.Threading.Thread.Sleep(2000)
        Console.WriteLine("Run Ending.")
    End Sub

End Module