program 1

 

Private Sub cmdHitung_Click()

txtdiskon = Val(txtharga) * 0.15

Txthak = Val(txtharga) - Val(txtdiskon)

End Sub

 

Private Sub cmdQuit_Click()

End

End Sub

 

Private Sub cmdUlangi_Click()

txtharga = ""

txtdiskon = ""

Txthak = ""

txtharga.SetFocus

End Sub