BANNIÉRE POUR LABEL

Dim ValLeft, ValRight, GetVal As Integer
Public Function Banner(Lab As Label, Vitess As Integer)
Dim test As Boolean
test = False
ValLeft = ValLeft + 1
If Lab.Left <= 0 Or ValLeft = 0 Then
test = True
Lab.Left = Lab.Left + Vitess
ValLeft = -1: ValRight = ValRight + 1
Else
GetVal = ValLeft + 1: Lab.Left = Lab.Left - Vitess
End If
If ValRight = GetVal And test = True Then
ValLeft = 0: ValRight = 0
End If
End Function