Bonjour , je vous expose mon probléme , j'ai un UserControl sur lequel j'ai mis un Timer , une PictureBox et un Label . Selon l'etat d'une variable "etat_van" , la picturebox clignote , mais je n'arrive pas à faire clignoter mon Label , car je ne veut pas utiliser un DEUXIEME TIMER , et la propriété TAG n'existe pas pour les labels :s

voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub Timer1_Timer()
Dim etat_figure As Integer
Dim etat_forcage As Integer
etat_figure = etat_van And 7
etat_forcage = etat_van And 32760
    Select Case etat_figure
        Case 1
            couleur_animation = couleur_ferme
        Case 2
            couleur_animation = couleur_ouvert
        Case 4
            couleur_animation = couleur_defaut ' je fais
            If Picture1.Tag = "V" Then     ' clignoter ma
                Picture1.Cls               ' picturebox ici
                Picture1.Tag = "F"         '
            Else                           '
                Picture1.Tag = "V"         '
            End If                         ' fin ici
        Case Else
            couleur_animation = couleur_indefinie
    End Select
    Select Case etat_forcage
        Case 8
            Label1.Visible = True
            Label1.Caption = "F.O"
        Case 16
            Label1.Visible = True
            Label1.Caption = "F.F"
        Case Else
            Label1.Visible = False
    End Select
End Sub
merci d'avance
amicalement lucas