ماشین حساب ساده در Visual Basic .NET

[Koosha_Raisi]

سلام دوستان !
من تازه 2 روزه برنامه نویسی با وی بی .نت رو شروع کردم و خیلی علاقه مند شدم
حقیقتش یک ماشین حساب طراحی کردم اما چند تا مشکل دارم :

1: نمیدونم چطوری Subtract یا منها رو تعریف کنم ! کدش رو نمیدونم به ذهنم هم نمیرسه. هرچی هم تو این سایتا خوندم متوجه نشدم
2: وقتی که = رو کلیک می کنم و حاصل جمع رو مثلا نشون میده.. می خوام وقتی رو یه عدد کلیک کردم اون حاصل محو شه و عدد جاش رو بگیره چون عملیات تموم شده ست دیگه.. اما عدد رو میاره کنار حاصل جمع ( که مساوی رو زدم ) قرار میده که نمیدونم این رو چطوری فیکس کنم.
3: اگر میشه ضرب و تقسیم رو هم بگید خیلی ممنون میشم :
این کد برنامه :

[LEFT]Public Class Form1
    Dim total1 As Integer
    Dim total2 As Integer
    Private Sub btn0_Click(sender As Object, e As EventArgs) Handles btn0.Click
        txtdisplay.Text = txtdisplay.Text & btn0.Text
    End Sub

    Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click
        txtdisplay.Text = txtdisplay.Text & btn1.Text
    End Sub

    Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn2.Click
        txtdisplay.Text = txtdisplay.Text & btn2.Text
    End Sub

    Private Sub btn3_Click(sender As Object, e As EventArgs) Handles btn3.Click
        txtdisplay.Text = txtdisplay.Text & btn3.Text
    End Sub

    Private Sub btn4_Click(sender As Object, e As EventArgs) Handles btn4.Click
        txtdisplay.Text = txtdisplay.Text & btn4.Text
    End Sub

    Private Sub btn5_Click(sender As Object, e As EventArgs) Handles btn5.Click
        txtdisplay.Text = txtdisplay.Text & btn5.Text
    End Sub

    Private Sub btn6_Click(sender As Object, e As EventArgs) Handles btn6.Click
        txtdisplay.Text = txtdisplay.Text & btn6.Text
    End Sub

    Private Sub btn7_Click(sender As Object, e As EventArgs) Handles btn7.Click
        txtdisplay.Text = txtdisplay.Text & btn7.Text
    End Sub

    Private Sub btn8_Click(sender As Object, e As EventArgs) Handles btn8.Click
        txtdisplay.Text = txtdisplay.Text & btn8.Text
    End Sub

    Private Sub btn9_Click(sender As Object, e As EventArgs) Handles btn9.Click
        txtdisplay.Text = txtdisplay.Text & btn9.Text
    End Sub

    Private Sub btnplus_Click(sender As Object, e As EventArgs) Handles btnplus.Click
        total1 = total1 + Val(txtdisplay.Text)
        txtdisplay.Text = ""
    End Sub

    Private Sub btnequal_Click(sender As Object, e As EventArgs) Handles btnequal.Click
        total2 = total1 + Val(txtdisplay.Text)
        txtdisplay.Text = total2
        txtdisplay.Text = "" + Val(txtdisplay.Text)
    End Sub

    Private Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
        txtdisplay.Text = ""
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        MsgBox("By: Koosha Raisi")
    End Sub

    Private Sub btnminus_Click(sender As Object, e As EventArgs) Handles btnminus.Click
        total1 = total1 - Val(txtdisplay.Text)
        txtdisplay.Text = ""
    End Sub
End Class[/LEFT]

TextBox که توش عدد رو مینویسیم گرفتم txtdisplay
اعداد هستن btn# ( که # عدد هست .)
+ = btnplus
- =btnminus
= = btnequal
Clear= btnclear

اگر میشه با توجه به همین name ها راهنمایی کنید. خیلی ممنون