WebServices asincroinicos

No es exactamente lo que pides pero espero que te sirva. Este ejemplo es de
un servicio web que devuelve un dataset y en la aplicacion se le asigna a un
datagrid para rellenarlo.


Private Sub RellenarGrid_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RellenarGrid.Click

Dim func As New fvidal.Funcioness()
Dim AsyCB As New AsyncCallback(AddressOf EsperaRespuesta)
Try
func.BeginRellena("CALL Datos_Pedido('147400')", AsyCB, func)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Sub EsperaRespuesta(ByVal AsyRes As IAsyncResult)
Dim func As New fvidal.Funcioness(), ds As System.Data.DataSet
func = AsyRes.AsyncState
Try
ds = func.EndRellena(AsyRes)
DataGrid1.DataSource = ds.Tables(0)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub