penjumlahan tanpa keypress
Private Sub cmdhitung_Click() Txttotal = Val(Txtnilai1) + (Txtnilai2) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() Txtnilai1 = "" Txtnilai2 = "" Txttotal = "" Txtnilai1.SetFocus End Sub