C#

Private Delegate Sub xxxDelegate(ByVal sender As Object, ByVal e As xxxEventArgs)<br />
<br />
Private Sub xxx(ByVal sender As Object, ByVal e As xxxEventArgs) Handles LongProcess.xxx<br />
<br />
If button.InvokeRequired = False Then<br />
Console.WriteLine("A - " & Cursor.Current.ToString())<br />
...<br />
Else<br />
Console.WriteLine("B - " & Cursor.Current.ToString())<br />
Dim del As New xxxDelegate(AddressOf xxx)<br />
Me.BeginInvoke(del, New Object() {sender, e})<br />
End If<br />
End Sub

Note If you call Application.DoEvents before resetting the Current property back to the Cursors.Default cursor, the application will resume listening for mouse events and will resume displaying the appropriate Cursor for each control in the application.

 Private Delegate Sub RunCrosstabDelegate(ByVal rowVar As String, ByVal colVar As String, ByVal thirdVar As String)

 Private Sub RunCrosstab()
        Dim crosstab As New RunCrosstabDelegate(AddressOf _Counter.RunCrossTab)
         crosstab.BeginInvoke(LkCrossTab1.RowVariable, LkCrossTab1.ColVariable, LkCrossTab1.ThirdVariable, Nothing, Nothing)
 End Sub

Private Sub _Counter_CrossTabStart(ByVal sender As Object, ByVal e As EventArgs) Handles _Counter.CrossTabStart
     If LkCrossTab1.InvokeRequired = False Then
         Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
     Else
         Dim del As New CrossTabStartDelegate(AddressOf _Counter_CrossTabStart)
         Me.BeginInvoke(del, New Object() {sender, e})
     End If
 End Sub

 Private Delegate Sub CrossTabFinishedDelegate(ByVal sender As Object, ByVal e As EventArgs)

 Private Sub _Counter_CrossTabFinished(ByVal sender As Object, ByVal e As EventArgs) Handles _Counter.CrossTabFinished

     If LkCrossTab1.InvokeRequired = False Then
            Cursor.Current = System.Windows.Forms.Cursors.Default
            '
     Else
         Dim del As New CrossTabFinishedDelegate(AddressOf _Counter_CrossTabFinished)
         Me.BeginInvoke(del, New Object() {sender, e})
     End If

 End Sub