我有一个函数x._Sampling在页面WebForm1中异步执行.委托代码如下:
Delegate Function Thread_Datebase(ByVal i As Int16) As Int16  
Private CallBackDelegate As AsyncCallback = AddressOf PutToDesk
Dim MyDelegate As New Thread_Datebase(AddressOf x._Sampling) 
执行如下:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim _IAsyncResule As IAsyncResult  '建立异步操作后台线程池
_IAsyncResule = MyDelegate.BeginInvoke(1, CallBackDelegate, Nothing)
Response.Redirect("Login.aspx", False)
下面是回掉函数:
 Sub PutToDesk(ByVal ar As IAsyncResult)
      '相应的操作
 End Sub
上述过程执行后页面进入Login.aspx,后台自动在执行x._Sampling,我想在执行完x._Sampling后刷新当前页面,或者是跳入到其他页面,不知道该怎么写.希望各位给点提示.