Se insertaron 5 label cada uno con su respectivo nombre y con sus texbox
se pusieron 3 buttum con sus nombres
y se puso la formula que estará a continuación

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim A As Integer
        Dim B As Integer
        Dim C As Integer
        Dim x1 As Integer
        Dim x2 As Integer
        Dim dis As Single
        Dim alerta As String

        A = TextBox1.Text
        B = TextBox2.Text
        C = TextBox3.Text
        dis = (B ^ 2) - (4 * A * C)
        If dis < 0 Then MsgBox(" la ecuacion no tiene solucion real", MsgBoxStyle.OkOnly, "Ecuacion del tipo: Ax2+Bx+C=0")
        If alerta = 1 Then
            alerta = 0
            dis = 0
            End
        End If
        x1 = (-B + (Math.Sqrt(dis))) / (2 * A)
        x2 = (-B - (Math.Sqrt(dis))) / (2 * A)
        TextBox4.Text = x1
        TextBox5.Text = x2

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
    End Sub