Построить график функции - VB (60970)

Private Sub Form_Load()
    Dim x As Single, y As Single, i As Integer
    AutoRedraw = True
    Scale (-5, 5)-(5, -5)
    Line (-5, 0)-(5, 0): Line (0, -5)-(0, 5)
    For i = -5 To 5
          Line (-0.1, i)-(0.1, i): Line (i, -0.1)-(i, 0.1)
    Next i
    DrawWidth = 3: ForeColor = vbRed
    
    For x = -3 To -1 Step 0.01
        y = 3 + 2 / x + 3 / x ^ 2
        PSet (x, y)
    Next x
End Sub