With Assistant.NewBalloon
    .BalloonType = msoBalloonTypeBullets
    .Icon = msoIconTip
    .Button = msoButtonSetOk
    .Heading = "faites un choix"
    .Labels(1).Text = "NAS"
    .Labels(2).Text = "ronde 150%/h"
    .Labels(3).Text = "vélage 90pts +2 h"
    .Show
End With

private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long
private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal _
 lpCursorName As Long) As Long

private Sub change_curseur()
Call SetSystemCursor(LoadCursor(0, 32514), 32512)
Call SetSystemCursor(LoadCursor(0, 32515), 32513)
End Sub

private Sub restaure()
Call SetSystemCursor(LoadCursor(0, 32512), 32512)
Call SetSystemCursor(LoadCursor(0, 32513), 32513)
End Sub

private Sub change_curseur()
Call SetSystemCursor(LoadCursorFromFile("D:\curseur.ani"), 32513)
End Sub

  'dans l'évènement mousemove de ta zone de texte tu mets
Screen.MousePointer= 1
 'n'oublie pas de mettre dans le mousemove du formulaire
Screen.MousePointer=0
 'sans quoi le pointeur restera toujours la flèche 

' Constante pour modif du fond
Private Const GCL_HBRBACKGROUND = -10
' Crée une brosse unie
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
' Crée une brosse à partir d'une image (pour utilisation en mosaïque uniquement)
Private Declare Function CreatePatternBrush Lib "gdi32" (ByVal hBitmap As Long) As Long
' Modifier une fenêtre selon sa classe
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
' Trouver l'identifiant d'une fenêtre
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
' Rafraîchir l'affichage
Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, ByVal lpRect As Any, ByVal bErase As Long) As Long

' wpv_arg est soit un nombre représentant une couleur(=RGB(xxx,xxx,xxx)), soit un chemin vers un fichier
Public Sub SetBackGround(wpv_Arg As Variant)
' Object Image temporaire
Dim wlo_Image As Object
' Identifiant de la brosse
Dim wlv_Brush As Long
' Identifiant de la fenêtre
Dim wlv_Hwnd As Long

' Si argument = nom de fichier
If Not IsNumeric(wpv_Arg) Then
    ' Charge l'image dans un objet temporaire
    Set wlo_Image = LoadPicture(wpv_Arg)
    ' Crée une brosse mosaïque à partir de l'image chargée
    wlv_Brush = CreatePatternBrush(wlo_Image.handle)
    ' Libère la mémoire occupée par l'objet image temporaire
    Set wlo_Image = Nothing
' Si argument numérique
Else
    ' Crée une brosse unie
    wlv_Brush = CreateSolidBrush(wpv_Arg)
End If
    ' Recherche l'identifiant de la fenêtre de fond de la base (de classe "MDIClient")
    wlv_Hwnd = FindWindowEx(Application.hWndAccessApp, 0, "MDIClient", vbNullString)
    ' Modifie l'identifiant de la brosse servant à dessiner le fond de la fenêtre
    SetClassLong wlv_Hwnd, GCL_HBRBACKGROUND, wlv_Brush
    ' Rafraîchit l'affichage pour dessiner le fond d'écran avec la nouvelle bross
    InvalidateRect wlv_Hwnd, vbNullString, 1
End Sub

SetBackGround 16570023

SetBackGround "C:\MonImage.jpg"

'affichage du sablier pendant le traitement
DoCmd.Hourglass True
 
'taper ici le code de traitement
 
'repasse en mode affichage classique (flèche dans mon cas)
DoCmd.Hourglass False