Public Class CircleButton

  'Protected member data
  Protected ptPos As Drawing.Point
  Protected strText As String

  'Public properties to set/get protected member data
  Public Property Pos() As Drawing.Point
    Get
      Pos = ptPos
    End Get
    Set(ByVal Value As Drawing.Point)
      ptPos = Value
    End Set
  End Property

  Public Property Text() As String
    Get
      Text = strText
    End Get
    Set(ByVal Value As String)
      strText = Value
    End Set
  End Property

  '  ...
End Class