Dim b1, b2 As New Integer
    Dim jumlah As Double
    Private Sub btTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btTambah.Click
        b1 = Val(txt1.Text)
        b2 = Val(txt2.Text)
        jumlah = b1 + b2
        txtHasil.Text = jumlah
    End Sub

    Private Sub btReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btReset.Click
        txt1.Text = ""
        txt2.Text = ""
        txtHasil.Text = ""
    End Sub

    Private Sub btKurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btKurang.Click
        b1 = Val(txt1.Text)
        b2 = Val(txt2.Text)
        jumlah = b1 - b2
        txtHasil.Text = jumlah
    End Sub

    Private Sub btKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btKali.Click
        b1 = Val(txt1.Text)
        b2 = Val(txt2.Text)
        jumlah = b1 * b2
        txtHasil.Text = jumlah
    End Sub

    Private Sub btKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btKeluar.Click
        Me.Close()
    End Sub

    Private Sub btBagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btBagi.Click
        b1 = Val(txt1.Text)
        b2 = Val(txt2.Text)
        jumlah = b1 / b2
        txtHasil.Text = jumlah
    End Sub

End Class