Построение графика по заданной функции - VB

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

помогите пожалуйста доделать программу =) Надо, чтобы по функции строился график. y = (1 - Sin(x)) / (ln(x) + 2) x>2 ln(x) не равно -2 Вот я сам попробовал написать.

                    Листинг программы
                
 
                        
                          
                    
Private Sub cmdOk_Click()
Dim SngX As Single
Dim bytI As Integer
Dim y As Single
 
picGraph.Scale (-9, 9)-(9, -9)
 
For SngX = -9 To 9 Step 0.01
y = (1 - Sin(SngX)) / (ln(SngX) + 2)
 
picGraph.PSet (SngX, y), vbRed
Next SngX
 
picGraph.Line (-9, 0)-(9, 0)
For bytI = -9 To 9
picGraph.PSet (bytI, 0)
picGraph.Print bytI
Next bytI
 
picGraph.Line (0, 9)-(0, -9)
For bytI = -9 To 9
picGraph.PSet (0, bytI)
picGraph.Print bytI
Next bytI
End Sub

Буду очень признателен за любую помощь!

Решение задачи: «Построение графика по заданной функции»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub cmdOk_Click()
Dim SngX As Single
Dim bytI As Integer
Dim y As Single
 
picGraph.Scale (-1, 1)-(20, -0.5)
 
For SngX = 2 To 20 Step 0.01
   y = (1 - Sin(SngX)) / (Log(SngX) + 2)
   picGraph.PSet (SngX, y), vbRed
Next SngX
 
picGraph.Line (-1, 0)-(20, 0)
For bytI = 2 To 20 Step 2
picGraph.PSet (bytI, 0)
picGraph.Print bytI
Next bytI
 
picGraph.Line (0, 1)-(0, -1)
For bytI = -1 To 1
picGraph.PSet (0, bytI)
picGraph.Print bytI
Next bytI
 
End Sub