tugas 2.2

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

Private Sub cmdkluar_Click()
Unload Me
End Sub

Private Sub cmdulang_Click()
txtha = ""
txtdis = ""
txtak = ""
txtha.SetFocus
End Sub


Private Sub txtha_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtdis = Val(txtha) * 0.1
txtak = Val(txtha) - Val(txtdis)
End If
End Sub