Tugas 2.1

Private Sub cmdhitung_Click()
txtdis = Val(txtha) * 0.1
txthak = Val(txtha) - (txtdis)
End Sub

Private Sub cmdlagi_Click()
txtha = ""
txtdis = ""
txthak = ""
txtha.SetFocus
End Sub


Private Sub cmdkeluar_Click()
Unload Me
End Sub