Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Make your arrays
Dim BaseX(72) As Double
Dim BaseY(72) As Double
Dim PitchX(72) As Double
Dim PitchY(72) As Double
Dim RootX(72) As Double
Dim RootY(72) As Double
Dim OuterX(72) As Double
Dim OuterY(72) As Double
'You're filling in these 4 from your other form.
Dim Rbg_mm As Double
Dim Rpg_mm As Double
Dim Rrg_mm As Double
Dim Rog_mm As Double
'These are temporary variables to make the calculations easier.
Dim dblSinTemp As Double
Dim dblCosTemp As Double
For i As Integer = 0 To 360 Step 5
dblSinTemp = Math.Sin((i * Math.PI) / 180.0)
dblCosTemp = Math.Cos((i * Math.PI) / 180.0)
BaseX(i \ 5) = Rbg_mm * dblCosTemp
BaseY(i \ 5) = Rbg_mm * dblSinTemp
PitchX(i \ 5) = Rpg_mm * dblCosTemp
PitchY(i \ 5) = Rpg_mm * dblSinTemp
RootX(i \ 5) = Rrg_mm * dblCosTemp
RootY(i \ 5) = Rrg_mm * dblSinTemp
OuterX(i \ 5) = Rog_mm * dblCosTemp
OuterY(i \ 5) = Rog_mm * dblSinTemp
Next
'That's it.
End Sub
End Class