Public Class Form1

    Dim eq As Equation

    Dim Atext, Btext, Ctext As String

    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
        If Button1.Text = "Data ready" Then
            eq = New Equation(TextBox1.Text, TextBox2.Text, TextBox3.Text)
            Button1.Text = "Solve!"
        Else
            Label5.Text = eq.Solve()
            Button1.Text = "Data ready"
        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