Option Strict On Public Class Form1 'http://vb.net-informations.com/gui/timer-vb.htm Dim second As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick second = second + 1 If second >= 10 Then '10 secondes à adapter Timer1.Stop() 'Timer stops functioning Button1.Enabled = True End If End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Timer1.Interval = 1000 Timer1.Start() 'Timer starts functioning Button1.Enabled = False End Sub End Class