Sub Mesure_temps()

' Paramètres
Dim temps As Double


' Initialisation : début de la mesure
temps = Timer


' Code à tester
'...
Dim i As Long
For i = 1 To 100000
    DoEvents
Next i
'...


' Affichage : fin de la mesure
MsgBox "Temps :" & Timer - temps & " secondes"


End Sub

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

' Parametres
Dim Stopwatch As System.Diagnostics.Stopwatch 
Stopwatch = New Stopwatch

' Initialisation : debut de la mesure


Stopwatch.Start()


' Code à tester

'...

Dim i As Long, a As Long
For i = 1 To 100000000 
a = a + 1
Next i 
'...


' fin de la mesure

Stopwatch.Stop()


' Affichage de la mesure
MessageBox.Show(Stopwatch.Elapsed().TotalSeconds & " secondes") 
'MessageBox.Show(Stopwatch.Elapsed().TotalMilliseconds & " millisecondes")

End Sub

Function GetSecondsElapsed1() As Long
    Static dOldDate As Date
    Static dNewDate As Date
'    sauvegarde
    dOldDate = dNewDate
    
'    maintenant
    dNewDate = Now
'   évite un dépassement de  capacité inutile
    If dOldDate = 0 Then dOldDate = dNewDate
'    retour
    GetSecondsElapsed1 = DateDiff("s", dOldDate, dNewDate)
End Function
'
'
Function GetSecondsElapsed2() As Double
    Static dOldTimer As Double
    Static dNewTimer As Double
'    sauvegarde
    dOldTimer = dNewTimer
    
'    maintenant
    dNewTimer = Timer
'   premier  lancement
    If dOldTimer = 0 Then dOldTimer = dNewTimer
'    retour
    GetSecondsElapsed2 = dNewTimer - dOldTimer
End Function

Stopwatch sw = new Stopwatch();

// Initialisation : dbut de la mesure
sw.Start();
// Code tester
// ...
// ...
// Fin de la mesure
sw.Stop();

// Affichage de la mesure
MessageBox.Show(sw.Elapsed.Seconds + " secondes");