Графическое решение уравнения sin(x) = ax - VB

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

Нажав на кнопку, программа нарисует график. Туда, где пересекаются линии y = sin(x) и y = ax подведите указатель линии и прочитайте ответ. Если вам нужна большая точность, то с помощью мыши нарисуйте прямоугольник и вновь нажмите кнопку, программа нарисует график в более крупном масштабе... так можно повторить несколько раз, но не до бесконечности...

Option Explicit
Dim T As String
Dim x0!, y1!, y2!, a!, x11!, y11!, x22!, y22!
Dim b As Boolean
Const pi = 3.141593
 
Private Sub cmdD_Click()
    a = Val(txtA.Text)
    pic.Cls
    pic.ScaleMode = 3
    pic.DrawWidth = 3
    pic.Scale (x11, y11)-(x22, y22)
    pic.ForeColor = vbBlack
 
    pic.Line (0, -1)-(0, 1)
    pic.Line (0, 0)-(pi, 0)
    pic.ForeColor = vbRed
    
    For x0 = 0 To pi Step 0.001
        y1 = Sin(x0)
        y2 = a * x0
        pic.PSet (x0, y1)
        pic.PSet (x0, y2)
    Next
    sch.Visible = False
End Sub
 
Private Sub Form_Load()
    x11 = -0.1
    y11 = 1.2
    x22 = 3.15
    y22 = -0.2
End Sub
 
Private Sub pic_MouseDown(Button As Integer, _
                                               Shift As Integer, _
                                               X As Single, Y As Single)
    x11 = X
    y11 = Y
    sch.Left = x11
    sch.Top = y11
    sch.Visible = -1
    b = True
End Sub
 
Private Sub pic_MouseMove(Button As Integer, _
                                              Shift As Integer, _
                                              X As Single, Y As Single)
    If b Then
        x22 = X
        y22 = Y
        sch.Width = Abs(x22 - x11)
        sch.Height = Abs(y22 - y11)
    End If
    pic.ToolTipText = "X = " + Str(X)
End Sub
 
Private Sub pic_MouseUp(Button As Integer, _
                                          Shift As Integer, _
                                          X As Single, Y As Single)
    b = False
End Sub

Решение задачи: «Графическое решение уравнения sin(x) = ax»

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

                            Option Explicit
 
Private Sub Command1_Click()
Dim myDec, my2Dec
myDec = CDec(1.23454381578424)
my2Dec = CDec(2.63614640321665)
 
Debug.Print myDec / my2Dec ' ответ впечатляет  0,4683138289579965369458465734
End Sub
                        