Создание программы для построения графика функции

Option Explicit
Private Sub Command1_Click()
Dim X As Double, Y As Double, i As Integer
Cls
DrawStyle = 0
Scale (-21, 5)-(21, -5)
          Line (-21, 0)-(21, 0), RGB(0, 0, 255) 'ocb X
          Line (0, 5)-(0, -5), RGB(0, 0, 255)   'ocb Y
      For X = -20 To 20 Step 0.001
          Y = 3 * (Cos(X / 5)) ^ 3
          Circle (X, Y), 0.1, RGB(255, 0, 0)
      Next X
      Form1.DrawStyle = 2   ' Пунктирная линия
      For i = -5 To 5
          Form1.CurrentX = 0    ' оцифровка
          Form1.CurrentY = i
          Print i
          Line (-20, i)-(20, i)
      Next i
      For i = -20 To 20 Step 2
          Form1.CurrentX = i    ' оцифровка
          Form1.CurrentY = 0
          Print i
          Line (i, -5)-(i, 5)
      Next i
End Sub

Private Sub Command1_Click()
Picture1.AutoRedraw = True
Dim x#
a = -20: b = 20: dx = 0.01
Picture1.Scale (a, 10)-(b, -10)
Picture1.Line (a, 0)-(b, 0): Picture1.Line (0, 10)-(0, -10)
For x = a + dx To b Step dx
Picture1.Line (x, Sin(f(x)))-(x - dx, f(x - dx)), RGB(Abs(f(x)) * 255 / 4, 0, 0)
Next
End Sub
Function f#(x#)
f = 3 * (Cos(x / 5)) ^ 3
End Function