Dim xSize As Integer = 37
Dim phaseValues(xSize) As Single

  For i As Integer = 0 To xSize - 1
    phaseValues(i) = _
    i * (180 - (-180)) / (xSize - 1) + (-180) ' (360/stepsize)+1 = xSize
    ' from -180 to 180 step 30
    Console.WriteLine(phaseValues(i))	'	Udskriv array (VB.NET)
  Next i