Private Delegate Sub Dcargar()
PrivateIdcargarAs New Dcargar(AddressOf Cargar)
Private ILLamadaHaciaAtras As New AsyncCallback(AddressOf LLamadaHaciaAtras)
Private Sub LLamadaHaciaAtras(ByVal ar As IAsyncResult)
Dim re As Dcargar = CType(ar.AsyncState, Dcargar)
Try
re.EndInvoke(ar)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Cargar()
'Aquí Codigo a Ejecutar que no tenga que ver con Objeto del Formulario ;-)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Idcargar
.BeginInvoke(ILLamadaHaciaAtras, Idcargar)
End Sub