Kalkulator ala Sang Bocah

Private Sub CmdBagi_Click()
Bil1 = Val(TxtBil1)
Bil2 = Val(TxtBil2)
Hasil = Bil1 / Bil2
TxtHasil = Hasil
End Sub

Private Sub CmdHapus_Click()
TxtBil1 = ""
TxtBil2 = ""
TxtHasil = ""
TxtBil1.SetFocus
End Sub

Private Sub CmdKali_Click()
Bil1 = Val(TxtBil1)
Bil2 = Val(TxtBil2)
Hasil = Bil1 * Bil2
TxtHasil = Hasil
End Sub

Private Sub CmdKeluar_Click()
DoCmd.Save
DoCmd.Close
End Sub

Private Sub CmdKurang_Click()
Bil1 = Val(TxtBil1)
Bil2 = Val(TxtBil2)
Hasil = Bil1 - Bil2
TxtHasil = Hasil
End Sub

Private Sub CmdTambah_Click()
Bil1 = Val(TxtBil1)
Bil2 = Val(TxtBil2)
Hasil = Val(Bil1) + Val(Bil2)
TxtHasil = Hasil
End Sub