Fejl timer

Jeg har denne kode som gerne skulle ligge +1 i sec hvert sekundt. Det gør den også men den stopper efter ca 5-15 min. nogle der kan forklare det?

    Sub DoIt(ByVal o As Object) 'Funktion der tæller sec + 1 hver gang den bliver kørt
        If status = True Then
            sec = sec + 1
            Label10.Text = sec
        Else
            MessageBox.Show("Tiden er stoppet")
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim tim As Timer = New Timer(AddressOf DoIt, Nothing, 0, 1000) 'Henter funktionen DoIf hvert 1.sekundt
        status = True
    End Sub
End Class