Membuat kalkulator sederhana pada VB Net

Bentuk desain :

keterangan :
Label1 => (Text = Angka 1)
Label 2=> (Text = Angka 2)
Label 3=> (Text = Hasil)

TextBox1 => (Name = Angka1)
TextBox2 => (Name = Angka2)
TextBox3 => (Name = Hasil)

Button1 => ( Text = Tutup) & (Name = Button1)
Button1 => ( Text = +) & (Name = Button2)
Button1 => ( Text = -) & (Name = Button3)
Button1 => ( Text = *) & (Name = Button4)
Button1 => ( Text = /) & (Name = Button5)

Sourse code :

Public Class Frmcoba

    Private Sub Frmcoba_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Angka1.Text = ""
        Angka2.Text = ""
        Hasil.Text = ""
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Hasil.Text = Val(Angka1.Text) + Val(Angka2.Text)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Hasil.Text = Val(Angka1.Text) - Val(Angka2.Text)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Hasil.Text = Val(Angka1.Text) * Val(Angka2.Text)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Hasil.Text = Val(Angka1.Text) / Val(Angka2.Text)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End
    End Sub
End Class

Semoga bermanfaat...