Zufallszahlen erzeugen

Dim rand As Random = New Random()
' Zufallswert zw. 0.0 bis 1.0
Dim x As Double = rand.NextDouble()