Dim s As New Stopwatch
        Dim i1 As Integer
        Dim i2 As Integer
        Dim zahl As Integer = 0
        s.Start()
 
        For i1 = 0 To 1000000
            For i2 = 0 To 1000
                zahl += 1
            Next
        Next
 
        s.Stop()
        MessageBox.Show("Benötigte Zeit für große Schleife außen, kleine innen:" & _
          "" & s.ElapsedMilliseconds & " Millisekunden")
        s.Reset()
        s.Start()
 
        For i1 = 0 To 1000
            For i2 = 0 To 1000000
                zahl += 1
            Next
        Next
 
        s.Stop()
        MessageBox.Show("Benötigte Zeit für kleine Schleife außen, große innen:" & _
          "" & s.ElapsedMilliseconds & " Millisekunden")

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co