zaman dolduğunda komut bir kez çalısın

Zaman dolduğunda yeni form açılıyor ..ama ben yeni açılan formu kapatsam bile sürekli tekrar ,tekrar açılıyor.Zaman dolduğunda bölmüne yazılan kodun sadece 1 kez çalışması nasıl yapılabilir.......

Ekte Sayın Celoyce nın bir örneği var onun üzerinde anlattım.Şimdiden ilginize çok teşekkür ederim
................................
Private Sub Form_Timer()
Dim Y As String
Y = "00"
If X <= 10 Then
Me.Label10.Visible = True
X = X + 1

If X = 11 Then: Beep
Me.Label10.Caption = Format(Choose(X, "10", "9", "8", "7", "6", "5", "4", "3", "2", "1", "0"), Y)
Else
DoCmd.OpenForm "Celoyce"

End If
End Sub
...........................................................................

kendimce çözümü böyle yaptım
c formundaki kodu böyle değiştirdim

--------------------------
Private Sub Form_Timer()
If X <> -1 Then
Dim Y As String
Y = "00"
If X <= 10 Then
Me.Label10.Visible = True
X = X + 1

If X = 11 Then: Beep
Me.Label10.Caption = Format(Choose(X, "10", "9", "8", "7", "6", "5", "4", "3", "2", "1", "0"), Y)
Else
DoCmd.OpenForm "Celoyce"
X = -1
End If
End If
End Sub

zaman dolduğunda olayında kod bir defa çalıştı bu kodun sonuna bu kod bir daha çalışmasın diye sıfırlayan bir şey eklemen gerekecek ki buda zamanı sıfırlamak olacaktır. Onu da TimerInterval = 0 ile yapabilirsin şayet kodu bir daha çalıştırmak istiyorsan yeniden zamanlama belirtmen gerkişyorki o zamanda uygun bir yere TimerInterval = 1000 bunu yazman gerekiyor.

Teşekkür ederim elinize sağlık tam istediğim gibi.