Неправильно определяется радиус окружности - VB

Private Sub Command1_Click()
For p = 0 To 2
Picture1.Line (-10, 0)-(10, 0), blue
Picture1.Line (0, -10)-(0, 10), blue
Const pi As Single = 3.14159265359
 
For i = 2 To 10 Step 2
Picture1.Circle (0, 0), 10, vbRed, -3 * 3.14 / 2, -2 * 3.14
Picture1.Circle (0, 0), 10, vbRed, -2 * 3.14, -3.14 / 2
Picture1.Circle (0, 0), 10, vbRed, -3.14 / 2, -3.14
Picture1.Circle (0, 0), 10, vbRed, -3.14, -3 * 3.14 / 2
 
Picture1.Line (-10, -i)-(-10, i), vbRed
Picture1.Line (i, 10)-(-i, 10), vbRed
Picture1.Line (10, -i)-(10, i), vbRed
Picture1.Line (i, -10)-(-i, -10), vbRed
 
Next i
Next p
End Sub