TUGAS2_2

Private Sub HITUNG_Click()
TXTDS = Val(TXTHA) * 0.1
TXTHAK = Val(TXTHA) - Val(TXTDS)
End Sub

Private Sub KELUAR_Click()
Unload Me
End Sub

Private Sub LAGI_Click()
TXTHA = ""
TXTDS = ""
TXTHAK = ""
TXTHA.SetFocus
End Sub


Private Sub TXTHA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTDS = Val(TXTHA) * 0.1
TXTHAK = Val(TXTHA) - Val(TXTDS)
End If
End Sub