Visual Basic.NET - CONTAR EL TIEMPO TRANSCURRIDO DE UN BUCLE

Que tal amigos,

quisiera saber si alguien me puede ayuda, necesito contar el tiempo transcurrido desde el inicio de un ciclo for o while no importa hasta su fin.
ejemplo:

tiempo_inicial
tiempo_final

for i = 0 to 100000
n = n+1
end for

yo se q para sakar el tiempo transcurrido es tfinal - finicial obvio, solo que como hacerlo en VB.

De antemano gracias por la ayuda

El codigo te regresa el tiempo transcurrido en segundos

Private Sub btnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcular.Click
Dim n As Integer = 0
Dim dteInicio As Date = Nothing
Dim dteFinal As Date = Nothing
Dim lngTiempoTranscurrido As Long = 0

dteInicio = DateTime.Now

For i As Integer = 0 To CType(txtNumeroCiclos.Text, Integer)
n += 1
Next

dteFinal = DateTime.Now

lngTiempoTranscurrido = DateDiff(DateInterval.Second, dteInicio, dteFinal)

lblTiempoTranscurrido.Text = "Tiempo transcurrido -> " & lngTiempoTranscurrido & " segundos"
End Sub

saludos, suerte!!!

gracias te agradezco por el codigo


solo que aunque meta una cantida de 99999999 de tope del ciclo por ejemplo, me devuelve "0" segundos no tienes idea de como contar los MILISEGUNDO.


gracias

Private Sub btnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcular.Click
Dim n As Integer = 0
Dim lngInicio As Long = 0
Dim lngFinal As Long = 0
Dim lngTT As Long = 0

lngInicio = getMilisegundos(DateTime.Now)

For i As Integer = 0 To CType(txtNumeroCiclos.Text, Integer)
n += 1
Next

lngFinal = getMilisegundos(DateTime.Now)

lngTT = lngFinal - lngInicio

lblTiempoTranscurrido.Text = "Tiempo transcurrido -> " & lngTT & " milisegundos"

End Sub

Private Function getMilisegundos(ByVal fecha As Date) As Long
Dim respuesta As Long = 0
Dim dteFechaAux As Date = New Date(1970, 1, 1, 0, 0, 0, 0)

respuesta = DateDiff(DateInterval.Second, dteFechaAux, fecha) * 1000 + fecha.Millisecond

Return respuesta
End Function

saludos suerte !!!!