Public Shared Sub LongProcess() Using dt As DataTable = GetMyData() For Each dr As DataRow In dt.Rows DoSomeProcess() Next End Using End Sub 'asynch methods for LongProcess Public Delegate Sub LongProcessAsync() Public Shared Sub LongProcessCallback(ar As IAsyncResult) 'just close out the thread DirectCast(DirectCast(ar, System.Runtime.Remoting.Messaging.AsyncResult).AsyncDelegate, LongProcessAsync).EndInvoke(ar) End Sub
Dim x As New LongMethods.LongProcessAsync(AddressOf LongMethods.LongProcess) x.BeginInvoke(AddressOf LongMethods.LongProcessCallback, Nothing)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)