Bonjour à tous,

j'ai un soucis avec une partie de code.

J'utilise un composant pour lire un fichier Midi.
Ce composant m'invite à ajouter une procedure avec "AddHandler" pour savoir
a quelle position je me trouve dans le fichier Midi pendant sa lecture :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Private Sub OnPlayback(sender As Object, e As PlaybackCurrentTimeEventArgs)
Dans cette Sub, j'ai du utiliser un Délégué pour renvoyer la valeur retourné par "OnPlayback",
vers une Sub qui se trouve sur "Form1". De cette manière :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Me.Invoke(New Delegate1(AddressOf SubForm1), ValeurPosition)
Dans la Sub "SubForm1", avec la valeur "ValeurPosition", j'alimente des Label...etc...

Tout fonctionne bien.

Sauf quand je quitte le programme.
Dans l'evenement "Form1_FormClosing" j'arrete le composant avec sa fonction "Stop" et
je supprime l'evenement avec "RemoveHandler". Mais rien n'y fait, j'ai systematiquement
cette erreur :

Nom : Capture.png Affichages : 97 Taille : 14,5 Ko

Par contre, si au lieu d'utiliser "Me" j'utilise n'importe quel Controle de Form1 :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Me.Label1.Invoke(New Delegate1(AddressOf SubForm1), ValeurPosition)
l'erreur disparait.