TUGAS2_1

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