Option Explicit
Private Luas As Integer
Private Panjang As Integer
Private Lebar As Integer
'hapus
Private Sub cmdClear_Click()
txtPanjang.Text = ""
txtLebar.Text = ""
txtLuas.Text = ""
End Sub
' Menghitung luas
Private Sub cmdLuas_Click()
Panjang = txtPanjang
Lebar = txtLebar
Luas = Panjang * Lebar
txtLuas.Text = Format$(Luas)
End Sub
Tampilan :
