---

Private Sub CommandButton1_Click()
    Dim a As Double, b As Double, c As Double, D As Double
    Dim x1 As Double, x2 As Double
    
    a = Val(TextBox1.Text)
    b = Val(TextBox2.Text)
    c = Val(TextBox3.Text)
    
    ' Расчет дискриминанта
    D = b ^ 2 - 4 * a * c
    
    ' Вывод результата в txtResult
    If D < 0 Then
        txtResult.Text = "Дискриминант: " & D & vbNewLine & "Уравнение не имеет действительных корней"
    ElseIf D = 0 Then
        txtResult.Text = "Дискриминант: " & D & vbNewLine & "Уравнение имеет один корень:" & vbNewLine & "x = " & (-b / (2 * a))
    Else
        x1 = (-b + Sqr(D)) / (2 * a)
        x2 = (-b - Sqr(D)) / (2 * a)
        
        txtResult.Text = "Дискриминант: " & D & vbNewLine & _
                         "Уравнение имеет два корня" & vbNewLine & _
                         "x1 = " & x1 & vbNewLine & _
                         "x2 = " & x2
    End If
End Sub