Mencari Luas Persegi Panjang pada VB.Net

Hasil Programnya

Listing Programnya :

Public Class Form1

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

    Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click

        luas.Text = panjang.Text * lebar.Text

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        panjang.Text = ""

        lebar.Text = ""

        luas.Text = ""

        panjang.Focus()

    End Sub

End Class