Anonymous

Public Class Circle
    Private x, y As Integer
    Private radius As Double
    Private Shared PI As Double = 3.14159

    Public Sub New(ByVal centerX As Integer, ByVal centerY As Integer, ByVal aRadius As Double)
        x = centerX
        y = centerY
        radius = aRadius
    End Sub

    Public Property PropertyX()
        Get
            Return x
        End Get
        Set(ByVal centerX)
            x = centerX
        End Set
    End Property

    Public Property PropertyY()
        Get
            Return y
        End Get
        Set(ByVal centerY)
            y = centerY
        End Set
    End Property

    Public Property PropertyRadius()
        Get
            Return radius
        End Get
        Set(ByVal aRadius)
            radius = aRadius
        End Set
    End Property

    Public Shared Function GetPI() As Double
        Return PI
    End Function

    Public Function ComputeCircumference() As Double
        Dim circumference As Double
        circumference = PI * radius * radius
    End Function
End Class