Menghitung Luas Dengan VB.Net

1. Design form seperti gambar dibawah ini :

2. Listing Program

     Public Class Form1

    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

3. Hasil Program