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

Формулировка задачи:

Судари, может у кого есть библиотека или сам писал и не жалко поделиться. Нужно построение графика произвольной функции с осями, метками, подбором масштаба и значений, перерисовкой при сворачивании и перемещении. Нужно срочно

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

textual
                            Листинг программы 
                        

                            Sub qqq(min#, max#, n%, s#)
Dim k%
s = (max - min) / n
k = Int(Log(s) / Log(10#))
s = Int(s / 10 ^ k) * 10 ^ k
min = Int(min / s) * s
max = (Int(max / s) + 1) * s ' + s
End Sub
                        