Составить алгоритм решения уравнения - VB

Option Explicit
Dim K
 
Private Sub Комманда1_Click()
Dim x, y
Dim S, Y0
Scale (-2, 2)-(2, -2)
 
K = K + 1
Caption = "K = " & K
Cls
Line (0, 2)-(0, -2), RGB(255, 0, 0)
Line (-2, 0)-(2, 0), RGB(255, 0, 0)
For x = -2 To 2 Step 0.0001
DoEvents
y = Sin(K * x) + Cos(K * x)
If y * Y0 < 0 Then Me.CurrentX = -2: Me.CurrentY = 2 - S * 0.1: S = S + 1: Print S; x
Y0 = y
Me.Circle (x, y), 0.001, RGB(0, 0, 255)
Next x
 
End Sub