График функции vb

Private Sub Command1_Click()
    Dim result As Double
    Dim stepSize As Double
    Dim x As Double
    Dim sum As Double
    Dim graphStepSize As Double
    Dim graphX As Double
    Dim graphY As Double
    
    result = 0
    stepSize = 0.1
    graphStepSize = 0.01 
    
  
    Cls
    Scale (0.2, 1.4)-(1.8, 4)
    Line (0.3, 3)-(0.9, 3) 'ox
    Line (0.88, 2.9)-(0.9, 3) 'left part arrow
    Line (0.88, 3.1)-(0.9, 3) 'right part arrow
    CurrentX = 3
    CurrentY = 3.3
    Print "X"
    Line (0.3, 3)-(0.3, 1.75)
    Line (0.31, 1.78)-(0.3, 1.75)
    Line (0.29, 1.78)-(0.3, 1.75)
    CurrentX = 6.5
    CurrentY = 0.75
    Print "Y"
    CurrentX = 6.8
    CurrentY = 1.47
    Print "0"
    
   
    For x = 2 To 10 Step stepSize
        sum = sum + (Exp(-x) / (Log(x) + Log(x) / Log(40 * 2) + 1))
        
        For graphX = x To x + stepSize Step graphStepSize
            graphY = Exp(-graphX) / (Log(graphX) + Log(graphX) / Log(40 * 2) + 1)
            PSet (graphX, graphY), RGB(255, 0, 0)
        Next graphX
    Next x
    
    result = sum * stepSize
    
End Sub

y = Exp(-x) / (Log(x) + (Log(2 * x) / Log(10)))

Private Sub Command2_Click()
Dim x As Double, y As Double
 Picture1.DrawWidth = 6
 Picture1.Scale (0, 1000)-(500, 0)
 Picture1.PSet (0, 0), RGB(0, 0, 255)
      For x = 2 To 10 Step 0.1
          y = Exp(-x) / (Log(x) + (Log(2 * x) / Log(10)))
          List1.AddItem ("x= " & x & "  y= " & y) 'Чтобы видеть значения
          Picture1.PSet (x * 50, y * 10000), RGB(255, 0, 0)
    Next x
End Sub

result = sum * stepSize