Построение графика произвольной функции с осями, метками, подбором масштаба

'Строит график любой ф-ции 
 'Автоматически подбирает масштаб по X и Y 
 Option Explicit 
 
 Private Sub Form_Load() 
   Dim MinX As Double 
   Dim MaxX As Double 
   Dim MinY As Double 
   Dim MaxY As Double 
   Dim dx As Double 
   Dim x1 As Double 
   Dim x2 As Double 
   Dim y1 As Double 
   Dim y2 As Double 
 
   ScaleMode = vbPixels 
   BackColor = RGB(255, 255, 255) 
   Show 
 
   'Здесь задайте диапазон по X 
   MinX = -3 'минимум 
   MaxX = 3  'максимум 
   dx = (MaxX - MinX) / ScaleWidth 'Шаг X/Pixel 
   'Ищем минимальное и максимальное значения ф-ции в диапазоне 
   MinY = F(MinX) 
   MaxY = F(MinX) 
   For x1 = MinX To MaxX Step dx 
     If MinY > F(x1) Then MinY = F(x1) 
     If MaxY < F(x1) Then MaxY = F(x1) 
   Next x1 
   'Перенастраиваем ScaleMode окна 
   ScaleLeft = MinX 
   ScaleWidth = MaxX - MinX 
   ScaleTop = MaxY 
   ScaleHeight = MinY - MaxY 
   'Отображаем оси координат 
   Line (MinX, 0)-(MaxX, 0), RGB(0, 0, 0) 
   Line (0, MinY)-(0, MaxY), RGB(0, 0, 0) 
   'Строим график 
   For x1 = MinX To MaxX Step dx 
     x2 = x1 + dx 
     y1 = F(x1) 
     y2 = F(x2) 
     Line (x1, y1)-(x2, y2), RGB(0, 0, 255) 
   Next x1 
 End Sub 
 
 'Задайте здесь свою ф-цию 
 Private Function F(ByVal x As Double) As Double 
   F = 1 / (x ^ 2 + 2 * x + 2) - 0.25 
 End Function