kalkulator sederhana dengan VB.Net

assalamualaikum...

kali ini saya akan membagikan ilmu saya kepada temen-temen sekalian. kali ini saya memberi sintaks untuk membuat kalkulator sederhana di bahasa pemrograman VB.Net.. marii disimak :)

Attribute VB_Name = "Module1"
Public Class latihan1
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If IsNumeric(txt_angka1.Text) And IsNumeric(txt_angka2.Text) Then
            txt_hasil.Text = CDbl(txt_angka1.Text) / CDbl(txt_angka2.Text)
        Else
            MessageBox.Show ("Harus Angka !")
        End If
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_angka1.TextChanged
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If IsNumeric(txt_angka1.Text) And IsNumeric(txt_angka2.Text) Then
            txt_hasil.Text = CDbl(txt_angka1.Text) + CDbl(txt_angka2.Text)
        Else
            MessageBox.Show ("Harus Angka !")
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If IsNumeric(txt_angka1.Text) And IsNumeric(txt_angka2.Text) Then
            txt_hasil.Text = CDbl(txt_angka1.Text) - CDbl(txt_angka2.Text)
        Else
            MessageBox.Show ("Harus Angka !")
        End If
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If IsNumeric(txt_angka1.Text) And IsNumeric(txt_angka2.Text) Then
            txt_hasil.Text = CDbl(txt_angka1.Text) * CDbl(txt_angka2.Text)
        Else
            MessageBox.Show ("Harus Angka !")
        End If
    End Sub
    Private Sub latihan1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
End Class

outputnya adalah sebagai berikut: