Вычислить сумму ряда 2 способами - VB

Формулировка задачи:

Доброго всем дня. Помогите, пожалуйста, решить данную задачу на visual basic. Преподаватель толком не объяснил ничего, приходится самому копаться. Вот задание: Нужно вычислить сумму 2 способами: с заданной точностью и с заданным N(10). Я так понял, нужно преобразовать формулу суммы, у меня вот это получилось: А вот мой код программы(только по тому способу, где задано N, с заданной точностью я не разобрался пока):

Private Sub Command1_Click()
Const Pi = 3.1415926
For x = 0 To (Pi / 4) Step 0.15
y = 2 * ((Cos(x)) ^ 2 - 1)
s = 0: p = 1
For i = 1 To 10 Step 1
p = p * 2 * i * (2 * i - 1)
s = s + ((-1) ^ i) * ((2 * x) ^ (2 * i)) / (p)
 
Next i
Picture1.Print x
Picture2.Print y
Picture3.Print i
Picture4.Print s
 
Next x
End Sub

Вобщем, я полный новичок в программировании, пришлось самому все изучать, так что, наверное, ошибок куча, особенно в том фрагменте, где указан вывод на picturebox(с этим фрагментом я даже не разбирался, просто хотел посмотреть результат). Делал все в соответствии с блок-схемой, которую дал преподаватель, но в ней я не уверен. Заранее спасибо за помощь.

Решение задачи: «Вычислить сумму ряда 2 способами»

textual
                            Листинг программы 
                        
                            For i = 1 To N