Mencari Luas Pesergi Panjang

Private Sub CmdHapus_Click()
TxtPanjang = ""
TxtLebar = ""
Txthasil = ""
End Sub

Private Sub CmdHitung_Click()
Dim P, L, H As Integer
P = TxtPanjang
L = TxtLebar
H = P * L
Txthasil = H
End Sub

Private Sub CmdKeluar_Click()
DoCmd.Save
DoCmd.Close
End Sub