[VB.NET] Chronomètre

Public Class Form1

    Dim maj As Integer = 160 'Ici on indique que la durée demandée est de 160 secondes soit 2 minutes 30 sous le nom de "maj"
    Dim minute As Integer 'Inutile si on veut que sous forme de seconde


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 1000 'Ici l'intervalle est de 1000 milliseconde soit une seconde

        Timer1.Start() 'Je pense que je n'ai pas besoin d'expliquer ici



    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Pour un compte a rebourd
        maj = maj - 1
        If maj = 0 Then
            'Action à effectuer après les 2 minutes 30
            maj = 160 'Réinitialisation du compte a reboud
        End If

        'Pour un chronomètre, mettre maj = 0 en haut
        maj = maj + 1
        If maj = 160 Then
            'Action à effectuer après les 2 minutes 30
            maj = 0 'Reinitialisation
        End If
        While maj > 60
            maj = maj - 60
            minute = minute + 1
        End While

        Label1.Text = maj.ToString 'Ici on dit que le texte du label sera en faites le nombre de seconde contenu dans maj remis en texte !!UNIQUEMENT LES SECONDES!!

        Label1.Text = minute.ToString & ":" & maj 'Ici on dit que il y aura les minutes suivi de ":" et suivi des secondes
    End Sub
End Class

Public Class Form1
    Dim M As Int32
    Dim S As Int32
    Dim T As Int32
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        T = 150
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        T -= 1
        If T >= 0 Then
            M = Int(T / 60)
            S = T - (M * 60)
            Dim D As New Date(1900, 1, 1, 0, M, S)
            Label1.Text = Format(D, "mm:ss")
        Else
            T = 150
            Stop
            'Code à traiter quand le temps est écouler
        End If
    End Sub
End Class