TUGAS 2.1

Private Sub Hitung_Click()
textdis = Val(textha) * 0.1
textakh = Val(textha) - Val(textdis)
End Sub

Private Sub Keluar_Click()
Unload Me
End Sub

Private Sub Ulangi_Click()
textha = ""
textdis = ""
textakh = ""
textha.SetFocus
End Sub