Caption = "Quadratic Equation" AddLabel "lblCoef", "a, b, c:", 50 AddText "a", "", 40 AddText "b", "", 40 AddText "c", "", 40 NewLine AddLabel "Roots", "Roots:", 50 AddText "x1", "", 40 AddText "x2", "", 40 NewLine NewLine NewLine AddButton "cmdSolve", "Solve" AddButton "cmdClose", "Close" Sub cmdClose_Click Quit End Sub Sub cmdSolve_Click d = b ^ 2 - 4 * a * c If d >= 0 Then x1 = (-b - Sqr(d)) / 2 x2 = (-b + Sqr(d)) / 2 Else MsgBox "No solution." End If End Sub