Tu fais un splashscreen. Un picturebox sur un panel par exemple qui apparait avant le début de ta fonction et qui disparait après.
A noter que tu afficher un icone de traitement
Me.Cursor = Cursors.WaitCursor
puis (après ton traitement)
Me.Cursor = Cursors.default
Le savoir ne sert que si il est partagé par tous