|
'*************************************************************** ' modifica l'icona del mouse per visualizzare l'elaborazione '*************************************************************** System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor start = Microsoft.VisualBasic.DateAndTime.Timer ' Set end time for 5-second duration. finish = start + 3.0 Do While Microsoft.VisualBasic.DateAndTime.Timer < finish ' Do other processing while waiting for 5 seconds to elapse. Loop System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default |