Trucos de ASP.NET Llamar web service asincronamente

Dim cb As AsyncCallback

cb = New AsyncCallback(AddressOf CallBackFunction)

Try

Dim ar As IAsyncResult = WS.BeginModify(Params.HTTP_HOST, objCourse, cb, WS)

Catch ex As Exception

End Try

End Sub

Private Sub CallBackFunction(ByVal ar As IAsyncResult)

Dim WS As WS_Course.CourseClass = ar.AsyncState
Dim results As Long
' Get the completed results.
results = WS.EndModify(ar)
End Sub