Mendefinisikan kelas Circle dengan atribut jari-jari dan pi, serta operasi GetArea()

Script;
a) Script pada Class
Public Class Class1
Public mjari As Decimal
Public mpi As Decimal = 3.14
Public Property jari() As Decimal
Get
Return mjari
End Get
Set(ByVal value As Decimal)
mjari = value
End Set
End Property
Public Function GetArea() As Decimal
GetArea = mpi * mjari ^ 2
End Function
End Class
b) Script pada From
Public Class Form1
Public lingkaran As Class1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lingkaran = New Class1()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
lingkaran.jari = Decimal.Parse(Me.TextBox1.Text)
MessageBox.Show("Luasnya adalah: " & lingkaran.GetArea())
End Sub
End Class

Output: