CHRONOMÈTRE SANS TIMER

Public Class Form1

    Dim textbox1 As New TextBox

    ''' <remarks>
    ''' 
    ''' 
    ''' Dim mystopwatch As New System.Diagnostics.Stopwatch
    ''' 
    ''' utilisation du code trouvé sur :
    ''' http://www.vbfrance.com/codes/NET2-MESURER-TEMPS-EXECUTION-METHODE_33782.aspx
    ''' 
    ''' 
    ''' </remarks>
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        textbox1 = Nothing
    End Sub

    Private Sub chrono()
        Dim mystopwatch As New System.Diagnostics.Stopwatch

        textbox1.Text = Now & vbCrLf
        mystopwatch.Start()
        MsgBox("OK to stop?", MsgBoxStyle.Information + MsgBoxStyle.SystemModal)
        textbox1.AppendText(mystopwatch.Elapsed.Days & " J-" & mystopwatch.Elapsed.Hours & " H-" & mystopwatch.Elapsed.Minutes & " M-" & mystopwatch.Elapsed.Seconds & " s-" & mystopwatch.Elapsed.Milliseconds & " m")
        mystopwatch = Nothing
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        With Me
            .Text = Application.ProductName
            .Cursor = New Cursor(Application.StartupPath & "\finger.ico")
            .DesktopBounds = Rectangle.FromLTRB(10, 10, 200, 200)
            .FormBorderStyle = Windows.Forms.FormBorderStyle.SizableToolWindow
            .TopMost = False
        End With
        With textbox1
            .Parent = Me
            .Multiline = True
            .Height = (Me.Height - Me.Button1.Height) - 25
            .Width = Me.Width - 8
            .ScrollBars = ScrollBars.Both
            .WordWrap = False
            .UseWaitCursor = False
            .TabStop = True
            .Cursor = New Cursor(Application.StartupPath & "\pink256.ico")
            .Visible = True
        End With
        With Button1
            .Height = 20
            .Dock = DockStyle.Bottom
            .Cursor = Me.Cursor
            .Text = "Restart"
            .PerformClick()
        End With

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        chrono()
    End Sub

    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        With textbox1
            .Height = (Me.Height - Me.Button1.Height) - 25
            .Width = Me.Width - 8
        End With
    End Sub
End Class