Luas Persegi Panjang ala Sang Bocah

Option Compare Database

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

Private Sub CmdHapus_Click()
TxtPanjang = ""
TxtLebar = ""
TxtLuas = ""
TxtPanjang.SetFocus
End Sub

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