Lorsque l'assistant est visible, les MsgBox sont représentés par lui, sinon, ce sont de simples boîtes de dialogue traditionnelle
Voici le code simple pour faire apparaître l'assistant, et lui faire décliner son identité :
Dim blnState As Boolean
Assistant.Visible = True
Assistant.Animation = msoAnimationAppear
MsgBox "Je suis " & Assistant.Item & " - " &
Assistant.FileName
Ce code permet de voir l'animation de l'assistant pendant une tâche assez longue :
Dim x
Assistant.Visible = True
Assistant.Animation = msoAnimationSearching
DoEvents
For x = 1 To 4000
' Ici la tâche
DoEvents ' Nécessaire pour voir l'animation
Next
Assistant.Visible = False