Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      Dim pruef As Integer = 123456
      Dim pruefzaehler1 As Integer = 0
 
      Dim sw1 As New Stopwatch
      sw1.Start()
      For x As Integer = 1 To 10000000
         If pruef > 100000 Then
            pruefzaehler1 += 1
         Else
            pruefzaehler1 -= 1
         End If
      Next
      sw1.Stop()
      Console.WriteLine("Vergleich mit IF " & sw1.ElapsedMilliseconds.ToString)
 
      Dim sw2 As New Stopwatch
      sw2.Start()
      For x As Integer = 1 To 10000000
         pruefzaehler1 += IIf(pruef > 100000, 1, -1)
      Next
      sw2.Stop()
      Console.WriteLine("Vergleich mit IIF " & sw2.ElapsedMilliseconds.ToString)
 
      MsgBox("Fertig")
 
   End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control