Public Class Base
WriteOnly Property Chr() As Boolean
Set(ByVal value As Boolean)
End Set
End Property
End Class
Public Class Test
Inherits Base
Public Shared Function ChrFunction(ByVal x As Object) As Object
End Function
End Class
Public Class Y
Public Sub G()
Dim x As New Test
x.Chr() = True
End Sub
End Class