a+=1; 这条指令必须在dosomething()方法执行完毕返回结果后才可以执行，否则就乱了套
创新互联公司致力于成都做网站、成都网站设计,成都网站设计,集团网站建设等服务标准化，推过标准化降低中小企业的建站的成本，并持续提升建站的定制化服务水平进行质量交付，让企业网站从市场竞争中脱颖而出。 选择创新互联公司，就选择了安全、稳定、美观的网站建设服务！
异步：异步概念和同步相对，当一个异步过程调用发出后，调用者不能立刻得到结果。实际处理这个调用的部件在完成后，通过状态、通知和回调来通知调用者（百度上抄的）。理解了同步概念后异步也就不难理解了，以javascript的ajax为例
ajax(arg1,arg2,function(){
//回调函数
a=3；
});
a=4；
这个代码段执行完成后一般情况会把a赋值为3而不是4，因为在ajax方法调用后，a=4;这条语句并没有等待ajax()返回结果就执行了，也就是在ajax()执行完成调用回调函数之前，a=4；已经执行了，回调函数再把a赋值为3使之成为最后结果，为此在ajax调用中我们经常会使用回调函数，其实在很多异步处理中我们都会使用到回调函数。
阻塞
阻塞操作是指，在执行设备操作时，若不能获得资源，则进程挂起直到满足可操作的条件再进行操作。
先把这个“动作”定义为方法
Public Function MyAction(a As Integer) As Integer
' do something...
Return a＋1
End Function
在类外面定义一个委托： Public Delegate Function
MyActionHandler(a As Integer) As Integer
在需要调用的地方：
Dim mah As MyActionHandler =
AddressOf MyAction
Dim iar As IAsyncResult = mah.BeginInvoke(1,Nothing,Nothing)
要结束并获得返回值：
Dim result As Integer = mah.EndInvoke(iar)
run需要一个action方法。
这个方法用于用后台进程执行占用大量CPU的工作，你的for代码段应该写在里面。
我没用过这个，粗略看了一下资料，实际情况与他的实例不太一样，Dim a As Task(of Boolean)=Await Doo()，直接提示错误，正确用法是去掉await。
解决以上两个问题，测试运行通过。（一个文本框滚数字，另一个打字无压力）
其实你的要求，不需要这么高级。多线程应该可以。
先声明一个委托：
Public Delegate Function EnumChildProc(hwnd As Integer, iParam As Integer) As Integer
然后才能使用回调函数，回调函数的参数要和委托完全一致。
然后那个 API 函数需要这样声明：
Declare Function EnumChildWindows Lib "user32" (hWndParent As Integer, lpEnumFunc As EnumChildProc, lParam As Integer) As Integer
所谓的委托（Delegate）实际上就是和C/C++里面的函数指针差不多，只是增强了类型检查等其它健壮性方面的内容。异步调用的回调函数有格式要求，所谓格式要求就是参数数量及类型顺序的要求，具体是什么样的你要看文档了。一般.NET Framework里面都是AsyncCallBack。
所谓异步编程，就是说你要求做某样事情，但是在完成这件事之前，我能接着做下一件事，而当这件事情完成之后，能够有一种机制通知我完成了。相反，在完成之前一直等待，直到完成了才能进行下一步操作，叫做同步。一般来说，我们平常写的程序都是“同步”，或者成为“顺序执行”更加贴切，而“异步”则可以说是“乱序执行”的。
可以看到，同步的代码非常好写，因为我们可以预测执行的顺序和情况。而异步就不是很好写了，因为无法得知完成的时候我正在做什么、做到什么程度。过去写这些代码是比较麻烦的，实现的办法就是自己建立一个处理异步事物的线程，然后在这个线程和主线程之间建立联系。而现在这个过程大部分已经被系统封装起来了，你只要调用BeginXXX，系统就会为你自动建立一个新的线程处理这个事情，当前线程不阻塞，可以马上进行下一项操作，于是就实现了“异步”了。但是从前面我讲道的你就应该知道，开始异步操作并没有完事，还需要能够得知操作完成，并能够进行相应的处理。于是你在调用BeginXXX的时候就需要传递一个回调函数，在.NET里是以委托的方式传递的。回调函数的意思就是“回过头来调用你”，或者说A调用B并且传递函数C的地址，于是B在指定的情况下调用A指定的函数C。现在就应该明白这个回调函数在BeginXXX中的作用就是，当你指定的事情做完之后将会调用这个回调函数。
在这个回调函数里面，我们就可以进行一些后续的工作，例如接着进行性质相同的工作，或者相应的处理。在这里，我们也许向知道刚才那件事情执行的情况和结果，这个时候我们就可以通过EndXXX来获得这些东西。说到这里，结合上面说到的AsyncCallBack以及随便哪个BeginXXX，我们可能会对下列两个东西感到困惑：
IAsyncResult
stateObject
首先说IAsyncResult，这个是一个接口，你在回调函数中通过参数获得的对象具体是什么类型的一般我们不需要关心，我们只需要依照这个接口的定义进行访问就可以了。简单点说，这个接口规定了顺利完成异步操作所需信息的最小集合。一般来说，我们需要通过这个参数（ar）来识别异步操作。比如说，你在一瞬间发起一百个“从不同的网络连接获取数据”的异步请求，当某一个请求被完成的时候，如何判断是那个请求被完成呢？就是依靠回调函数的参数ar。实际上你一般是不需要参与判断的，你只要将这个ar传递给EndXXX就可以了，EndXXX会根据这个ar自行判断的。需要注意的是，这个ar就是你调用BeginXXX的时候的返回值，可以说是一个存根，如果你需要在完成操作前终止他，也可以通过将这个存根传递给EndXXX，EndXXX就会根据情况终止操作。（IAsyncResult里面的IsCompleted提供了是否已经完成的判断，EndXXX就是根据这个值决定是否有必要终止。当然，你不需要关心他。）
接下来我们看看stateObject，这个东西被称为状态对象。于是大家就可能奇怪了：那个ar不也是状态吗？实际上stateObject是一个留给用户使用的东西，BeginXXX/EndXXX根本就不使用。这个stateObject会被装到ar的AsyncState里面，也就是说这个stateObject可以随时通过访问存根（BeginXXX的返回值）或者回调函数里的ar得到，你完全没必要额外的保存到什么地方，更不需要费神的去考虑如何和你的某个异步操作对应起来。说了半天，这个东西有什么用呢？你想怎么用就怎么用呗，发挥一下你的想象力。比如说，你可以保存这是第几次操作，或者在多个异步操作之间要同步的时候可以作为信号旗，再或者直接是操作这个异步操作的对象（x.BeginXXX的时候将x传递到stateObject参数上）。
第一种用法有点多余，第二种用法有点复杂，第三种我用得最多。因为你很可能在协一个服务端，而服务段必须能够响应多个客户端，这决定了必须用异步。同时，对于多个客户端必然有多个对象，例如网络连接的时候可能是Socket。而实际上处理的方法或者协议是和具体哪个客户端没有关联的，因此我们只需要一套处理程序就够了。这个时候第三种用法就很有用处，我们完全可以把代码写成这样：
Sub DataReceived(ByVal ar As IAsyncResult)
ar.AsyncState.EndReceive(ar)
ar.AsyncState.BeginReceive(... , ar.AsyncState)
End Sub
这样就不需要额外的数据结构去记录有那些正在活动的对象了。
