Hi,

One of our projects we had to do was make a simple calculator (surprise, surprise..)

I have it more or less finished but still have 1 error for wich I can't find a solution.

First off, my code here:

Code:
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles btnClear.Click
        txtAntwoord.Clear()
        lbl1.Text = ""
        lbl2.Text = ""
        lbl3.Text = ""

    End Sub

    Private Sub btn9_Click(sender As Object, e As EventArgs) Handles btn9.Click
        txtAntwoord.AppendText(9)
    End Sub

    Private Sub btn8_Click(sender As Object, e As EventArgs) Handles btn8.Click
        txtAntwoord.AppendText(8)
    End Sub

    Private Sub btn7_Click(sender As Object, e As EventArgs) Handles btn7.Click
        txtAntwoord.AppendText(7)
    End Sub

    Private Sub btn4_Click(sender As Object, e As EventArgs) Handles btn4.Click
        txtAntwoord.AppendText(4)
    End Sub

    Private Sub btn5_Click(sender As Object, e As EventArgs) Handles btn5.Click
        txtAntwoord.AppendText(5)
    End Sub

    Private Sub btn6_Click(sender As Object, e As EventArgs) Handles btn6.Click
        txtAntwoord.AppendText(6)
    End Sub

    Private Sub btn3_Click(sender As Object, e As EventArgs) Handles btn3.Click
        txtAntwoord.AppendText(3)
    End Sub

    Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn2.Click
        txtAntwoord.AppendText(2)
    End Sub

    Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click
        txtAntwoord.AppendText(1)
    End Sub

    Private Sub btn0_Click(sender As Object, e As EventArgs) Handles btn0.Click
        txtAntwoord.AppendText(0)
    End Sub

    Private Sub btnPunt_Click(sender As Object, e As EventArgs) Handles btnPunt.Click
        txtAntwoord.AppendText(".")
    End Sub

    Private Sub btnPlus_Click(sender As Object, e As EventArgs) Handles btnPlus.Click
        lbl1.Text = txtAntwoord.Text
        lbl2.Text = "+"
        txtAntwoord.Clear()
    End Sub

    Private Sub btnMin_Click(sender As Object, e As EventArgs) Handles btnMin.Click
        lbl1.Text = txtAntwoord.Text
        lbl2.Text = "-"
        txtAntwoord.Clear()
    End Sub

    Private Sub btnMaal_Click(sender As Object, e As EventArgs) Handles btnMaal.Click
        lbl1.Text = txtAntwoord.Text
        lbl2.Text = "*"
        txtAntwoord.Clear()
    End Sub

    Private Sub btnDeel_Click(sender As Object, e As EventArgs) Handles btnDeel.Click
        lbl1.Text = txtAntwoord.Text
        lbl2.Text = "/"
        txtAntwoord.Clear()
    End Sub

    Private Sub btnEQ_Click(sender As Object, e As EventArgs) Handles btnEQ.Click
        Try

            lbl3.Text = txtAntwoord.Text
        Dim sign As Char
        sign = lbl2.Text
        Dim n1 As Double
        n1 = Convert.ToDouble(lbl1.Text)
        Dim n2 As Double
        n2 = Convert.ToDouble(lbl3.Text)
        Dim n3 As Double

        Select Case (sign)
            Case "+"
                n3 = n1 + n2
            Case "-"
                n3 = n1 - n2
            Case "*"
                n3 = n1 * n2
            Case "/"
                n3 = n1 / n2

        End Select
        txtAntwoord.Text = Convert.ToString(n3)

        Catch ex As Exception
        MsgBox("Gelieve enkel cijfers in te geven")

        End Try

    End Sub
End Class
The calc itself looks something like this: http://imgur.com/GiSfJ2o

Here's the problem: Whenever I do 2 operations after each other without using the enter or 'equals as' button, it forgets the first operation.
By example, 3+3=6 but 3+3+3 also = 6 AND 3-3+3 is ALSO 6.

I know the problem lies within the fact I only use 3 labels in wich I store my numbers/operations but I don't know how to fix this in an easy/elegant way.

All tips are welcome, thank you in advance for your time and input!

Dieter