Построить график функции

Private Sub Form_Click()
Dim x As Single, Y As Single, i As Single
Dim niz As Double, verh As Double, shag As Double
   Me.Show
   niz = -4: verh = 5: shag = 0.00013 ': X = niz
       
   DrawStyle = 0: WindowState = 2: FillStyle = 0
   Me.Show
   Cls
   Scale (niz, verh)-(1, -1)
   Line (niz, 0)-(verh, 0), vbBlue  'ocb X
   Line (0, niz)-(0, verh), vbBlue   'ocb Y
   
   For x = -3 To -1 Step shag
          '''''''''''''''''''''''''''''''''''''''''''''
          Y = 3 + 2 / x + 3 / x ^ 2 '
          '''''''''''''''''''''''''''''''''''''''''''''
          Circle (x, Y), 0.015, RGB(255, 0, 0)
   Next x
  
   Form1.DrawStyle = 2   ' Пунктирная линия
   For i = niz To verh Step 0.5
          Form1.CurrentX = 0    ' оцифровка
          Form1.CurrentY = i
          Print i
          Line (-0.05, i)-(0.05, i)   ' засечка
          Line (niz, i)-(verh, i)
   Next i
 
   For i = niz To verh Step 0.5
          Form1.CurrentX = i    ' оцифровка
          Form1.CurrentY = 0
          Print i
          Line (i, niz)-(i, verh) ' засечка
          Line (i, -0.05)-(i, 0.05)
   Next i
  
  End Sub
  Private Sub Form_Load()
          Form_Click
  End Sub

Private Sub Command1_Click()
   Dim x As Single, Y As Single, i As Single
   Picture1.Scale (-4, 5)-(1, -1)
   Picture1.Line (-4, 0)-(5, 0), vbBlue  'ocb X
   Picture1.Line (0, -4)-(0, 5), vbBlue   'ocb Y
   For x = -3 To -1 Step 0.0013
     Y = 3 + 2 / x + 3 / x ^ 2
     Picture1.Circle (x, Y), 0.015, RGB(255, 0, 0)
   Next x
End Sub

Private Sub Command1_Click()
Dim x As Single, Y As Single, i As Single
    Picture1.Scale (-4, 5)-(1, -1)
    Picture1.Line (-4, 0)-(5, 0), vbBlue 'ocb X
    Picture1.Line (0, -4)-(0, 5), vbBlue 'ocb Y
    For x = -4 To 1 Step 0.5
        Picture1.Line (x, -0.05)-(x, 0.05), vbBlue
        Picture1.CurrentX = x + 0.05
        Picture1.CurrentY = -0.05
        Picture1.Print Format(x, "0.0")
    Next x
    For Y = -1 To 5 Step 0.5
        Picture1.Line (-0.05, Y)-(0.05, Y), vbBlue
        Picture1.CurrentX = 0.05
        Picture1.CurrentY = Y - 0.05
        Picture1.Print Format(Y, "0.0")
    Next Y
    For x = -3 To -1 Step 0.0013
        Y = 3 + 2 / x + 3 / x ^ 2
        Picture1.Circle (x, Y), 0.015, RGB(255, 0, 0)
    Next x
End Sub