tugas 2.1

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