Texte defilante

bonsoir
j'ai un soucis avec ma formulaire nommée :" Reconnaissance faciale " avec plusieurs champs . le champs: "Numéro parents" contenant les numéros des parents. je veux faire défiler le numéro téléphone qui s'affiche dans le champs.
jai essaye ceci mais qui marche pas :

Option Compare Database
Dim Défiler_Cmp As Integer
Dim Défiler_Champ As String
Dim Défiler_ValeurChamp As String
Private Sub Form_Load()

Défiler_Cmp = 0
Me.TimerInterval = 40 ' indiquer 0 pour supprimer l'évènement timer

End Sub

Private Sub Form_Timer()

If Défiler_Cmp = 0 Then
Défiler_Champ = "Contact parents"
Défiler_ValeurChamp = "Contact parents"
With Me.Controls(Défiler_Champ)
.FontName = "Contact parents"
.FontItalic = False
.FontBold = True
.FontSize = 12
Me.Controls(Défiler_Champ) = Space(.Width / (.FontSize * 6)) & Défiler_ValeurChamp
Défiler_Cmp = Len(Me.Controls(Défiler_Champ))
End With
End If

Me.Controls(Défiler_Champ).ForeColor = RGB(Défiler_Cmp, Défiler_Cmp, Défiler_Cmp)
Me.Controls(Défiler_Champ) = Mid$(Me.Controls(Défiler_Champ), 2)
Défiler_Cmp = Défiler_Cmp - 1

End Sub