Private Sub cmdhitung_Click()
Txtdis = Val(Txtha) * 0.25
Txtakhir = Val(Txtha) - Val(Txtdis)
End Sub
Private Sub cmdulang_Click()
Txtha = ""
Txtdis = ""
Txtakhir = ""
Txtha.SetFocus
End Sub
Private Sub cmdquit_Click()
Unload Me
End Sub
Private Sub txtha_keypress(keyascii As
Integer)
If keyascii = 13 Then
Txtdis = Val(Txtha) * 0.25
Txtakhir = Val(Txtha) - Val(Txtdis)
End If
End Sub