Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged End Sub Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b, c, delta As Double a = CDbl(TextBox1.Text) b = CDbl(TextBox2.Text) c = CDbl(TextBox3.Text) delta = b * b - 4 * a * c If delta < 0 Then Label1.Text = "No solutions" ElseIf delta = 0 Then Label1.Text = "One solution: :" & CStr((-b) / (2 * a)) Else 'delta >0 Label1.Text = "Two solutions: " & CStr((-b - Math.Sqrt(delta)) / (2 * a)) & _ " and " & CStr((-b + Math.Sqrt(delta)) / (2 * a)) End If End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub End Class