Private Sub CmdHapus_Click()
TxtSejajar = ""
TxtTinggi = ""
TxtHasil = ""
TxtSejajar.SetFocus
End Sub
Private Sub CmdHitung_Click()
Dim S, t, H As Integer
S = TxtSejajar
t = TxtTinggi
H = TxtSejajar * TxtTinggi / 2
TxtSejajar = S
TxtTinggi = t
TxtHasil = H
End Sub
Private Sub CmdKeluar_Click()
DoCmd.Save
DoCmd.Close
End ...
