Windows Forms で、処理中カーソルの後始末を IDisposable を使って行なう。

BusyProcess.vb

Namespace Utils
    Public Class BusyProcess
        Implements IDisposable

        Private form As Form
        Public Sub New(form As Form)
            Me.form = form
            Me.form.Cursor = Cursors.WaitCursor
        End Sub
        Public Sub Dispose() Implements IDisposable.Dispose
            Me.form.Cursor = Cursors.Default
        End Sub
    End Class
End Namespace

Testing.vb

        Using New BusyProcess(Me)
          'do something
        End Using