Dim sw As Stopwatch = New Stopwatch()
sw.Start()
For i As Integer = 0 To 1000 Step +1
For j As Integer = 0 To 1000 Step +1
Next
Next
sw.Stop()
MsgBox(sw.ElapsedMilliseconds.ToString)
스탑워치를 사용하여 for문의 실행 시간을 확인 할 수 있다.(메세지박스로 경과시간표시)
응용하여 함수가 100ms 단위로 실행하게끔 사용도 할수 있음