Kalkulator Kiwiiwew

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(TxtBil1)
  TxtHasil = Hasil
 End Sub