Public Class Bar
    Dim a As Boolean

    Public ReadOnly Property AcceptButton() As Boolean
        Get
            Return a
        End Get
    End Property
End Class


Public Class Foo
    Sub SampleMethod()
        AcceptButton()

    End Sub
End Class


Partial Class Foo
    Inherits Bar
End Class