Bonjour , je souhaite faire clignoté 2 Image sur 4 , le souci est que les 4 images sont visibles seulement si on la selectionne

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Public Sub kelimage()
Image1.Visible = (CHGT = 0)
Image2.Visible = (CHGT = 1)
Image3.Visible = (CHGT = 2)
Image4.Visible = (CHGT = 3)
End Sub
Mon Timer pour le clignotement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub Timer2_Timer()
cligno = cligno + 1
    Select Case cligno
    Case 1
        IMG.Visible = False
    Case 2
        IMG.Visible = True
cligno = 0
End Select
End Sub
Comme vous le voyez , j'ai créé une variable IMG
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Dim IMG as String
Dans le but pouvoir ,d' affecter au NAME de l'image que je souhaite faire clignoter IMG , donc j'ai penser à la ligne de code suivante
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Image1.NAME = IMG
En vain , le jolie message suivant est apparu
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Impossible d'affecter la propriété en lecture seule
que faire ??