Do until / Do events

Bonjour,

Voilà... j'utilise le petit bout de code suivant dans mon programme dans le sub qui lance la lecture d'un fichier midi.
Info importante : Label1 est placé dans un timer et s'incrémente (par exemple) de cette façon -> 1 - 2 - 3 - 4 - 1 - 2 - 3 - 4 - 1 - 2... etc.
Continuons dans l'exemple, TSig.beatsPerMeasure a une valeur de 4.
Donc dès que Label1 = 4 alors mon action est effectuée. 

Ce que je souhaiterais, c'est que l'action soit effectuée dès que Label1affiche "1" pour la troisième fois !(1 - 2 - 3 - 4 - 1 - 2 - 3 - 4 - 1 - 2... etc.)

Et je ne sais pas comment faire. Une petite idée ?


      Do Until Label1.Caption = TSig.beatsPerMeasure
        DoEvents
        If Label1.Caption = TSig.beatsPerMeasure Then
            Form2.Timer1.Enabled = True
            Form2.minute.Enabled = False
            Form2.seconde.Enabled = False
            Form2.sep.Enabled = False
        End If
        Loop

j'ai un peu modifié pour mon cas, mais l'approche était bien la bonne. merci