MEMBUAT LUAS JAJARGENJANG DENGAN VB

Public Class Form1
    Dim alas, tinggi, hasil As Double
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Menghitung Luas Jajargenjang
        If TextBox1.Text = "" Then
            MsgBox("Data Belum Diisi")
        Else
            alas = Val(TextBox1.Text)
            tinggi = Val(TextBox2.Text)
            hasil = alas * tinggi
            TextBox3.Text = hasil
        End If
    End Sub
End Class