Tugas 2.1

Private Sub Cmdhitung_Click()

Txtdis = Val(txtha) * 0.15

Txtakhir = Val(txtha) - Val(Txtdis)

End Sub

Private Sub CmdQuit_Click()

Unload Me

End Sub

 

Private Sub Cmdulang_Click()

txtha.SetFocus

txtha = ""

Txtdis = ""

Txtakhir = ""

End Sub