график в visual basic

Private Sub Command1_Click()
P1.Cls
pi = 4 * Atn(1)
P1.Scale (-2 * pi, 20)-(2 * pi, -20)
P1.DrawWidth = 1
For y = -20 To 20 Step 5 'ось y
If y <> 0 Then
P1.Line (-6.28, y)-(6.28, y), vbGreen
End If
Next y
P1.DrawWidth = 2
For x = -6 To 6 'ось x
If x <> 0 Then
P1.Line (x, -20)-(x, 20), vbGreen
End If
Next x
P1.Line (-6.28, 0)-(6.28, 0)
P1.Line (0, -20)-(0, 20)
For x = -2 * pi To 2 * pi Step 0.0001
y = 5 * Sin(2 * x) + 2.7 * x
P1.PSet (x, y), vbRed
Next x
 
End Sub

Option Explicit
Dim x!, y!
Const pi = 3.141593, p2 = 2 * pi
 
Private Sub cmd1_Click()
    pic1.Cls
    pic1.Scale (-2 * pi, 20)-(2 * pi, -20)
    pic1.DrawWidth = 2
    
    For y = -20 To 20 Step 5
        pic1.Line (-p2, y)-(p2, y), vbGreen
    Next
    
    For x = -6 To 6
        pic1.Line (x, -20)-(x, 20), vbGreen
    Next
    
    pic1.Line (-p2, 0)-(p2, 0)
    pic1.Line (0, -20)-(0, 20)
    
    pic1.Line (p2 - 0.5, 1)-(p2, 0)
    pic1.Line (p2 - 0.5, -1)-(p2, 0)
    
    pic1.Line (0.2, 18)-(0, 20)
    pic1.Line (-0.2, 18)-(0, 20)
    
    pic1.DrawWidth = 5
    
    For y = -20 To 20 Step 5
        pic1.PSet (0, y), vbYellow
        pic1.Print y
    Next
    
    For x = -6 To 6
        pic1.PSet (x, 0), vbYellow
        pic1.Print x
    Next
    
    pic1.DrawWidth = 2
    
    For x = -p2 To p2 Step 0.001
        y = 5 * Sin(2 * x) + 2.7 * x
        pic1.PSet (x, y), vbRed
    Next
End Sub