tugas 2.1 perhitungan harga setelah discon

tugas 2.1

Private Sub cmdhitung_Click()
Txtdis = Val(txtha) * 0.1
Txtak = Val(txtha) - (Txtdis)
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdulang_Click()
txtha = ""
Txtdis = ""
Txtak = ""
End Sub