Stoper un timer sous VB

Il s'agit de stopper un timer lors d'un événement. Dans notre cas c'est lorsqu'un compteur atteint un certain nombre ou lorsque le temps imparti est écoulé.

Pour l'instant lorsque le compteur atteint ce nombre la feuille en cours est supprimé (ici c’est le 1er niveau) et une nouvelle feuille apparaît (ici niveau2.frm):

Voici le Code :

'Cible
Private Sub imgCible_Click()
'Compteur de tirs réussis
txtHit = txtHit + 1
If txtHit = 10 Then
Réponse = MsgBox("Niveau suivant", 0, "Bravo")
If Réponse = vbOK Then
tmrTime.Enable = False ‘ C’est cette fonction qui ne fonctionne pas… !!!
niveau2.Show
Unload Me
End If
End Sub

Nous avons essayé divers truc dont :
- kill_tmrTime
- tmrTime.Enable = False
- tmrTime = 0
- tmrTime.Interval=0


Le problème est que lorsque la nouvelle feuille apparaît, le compteur de l’ancien niveau redémarre est une boîte de dialogue survient en plein jeu d’un autre niveau. Voici le code du timer:

'Compteur de temps
Private Sub tmrTime_Timer()
Dim X As Long
z = z - 1
txtTime.Caption = z
If z = 0 Then
X = MsgBox("Fin de la partie 1, retour à la page d'accueil", vbOKOnly, "Game Over")
home.Show
Unload Me
End If
End Sub

Merci d’avance.

DimDam