vb 2005

persegi panjang

	name	text
Project1	OOPHitungPersegiPanjang
Form1	persegipanjang	persegipanjang
Label1	panjang	panjang
label2	lebar	lebar
label3	hasil	hasil
TextBox1	txtpanjang
TextBox2	txtlebar
TextBox3	txthasil
Button1	Button1	hitung

ini codingnya

Public Class persegipanjang

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim panjang, lebar As Single
        Dim hitluas As hitungluas

        hitluas = New hitungluas

        panjang = Val(txtpanjang.Text)
        lebar = Val(txtlebar.Text)

        txthasil.Text = hitluas.menghitungluas(panjang, lebar)



    End Sub

lalu klik kanan pada project1(OOPHitungPersegiPanjang) pilih Add >> pilih Class
beri nama class tersebut hitungluas
lalu masukan coding seperti ini

Public Class hitungluas
    Public Function menghitungluas(ByVal panjang As Single, ByVal lebar As Single) As Single
        menghitungluas = panjang * lebar
    End Function

End Class