risolto:



e.Cursor = Cursors.WaitCursor 'Imposta la clessidra.

Me.Cursor = Cursors.Default 'Ripristina il puntatore predefinito.