No Title for Now

Public Class frmCal

Private Sub btnOutput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOutput.Click If Label1.Text = "+" Then txtInput.Text = Val(My.Settings.First) + Val(txtInput.Text) ElseIf Label1.Text = "-" Then txtInput.Text = Val(My.Settings.First) - Val(txtInput.Text) ElseIf Label1.Text = "*" Then txtInput.Text = Val(My.Settings.First) * Val(txtInput.Text) ElseIf Label1.Text = "/" Then txtInput.Text = Val(My.Settings.First) / Val(txtInput.Text) End If End Sub

Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click txtInput.AppendText("0") End Sub

Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click txtInput.AppendText("1") End Sub

Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click txtInput.AppendText("2") End Sub

Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click txtInput.AppendText("3") End Sub

Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click txtInput.AppendText("4") End Sub

Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click txtInput.AppendText("5") End Sub

Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click txtInput.AppendText("6") End Sub

Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click txtInput.AppendText("7") End Sub

Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click