tugas 2.1

 

Private Sub cmdhitung_Click()

txtdis = Val(txtha) * 0.15

txthk = Val(txtha) – Val(txtdis)

End Sub

 

 

 

Private Sub cmdulangi_Click()

txtha.SetFocus

txtha = “”

txtdis = “”

txthk = “”

End Sub

Private Sub cmdquit_Click()

End

End Sub