'Interface
Public Interface xx_Interface
    Property I_Prop() As Integer
End Interface
 
 
'Basisklasse
Public Class xx_A
    Implements xx_Interface
 
    Dim _i_prop As Integer
 
    Public Property I_Prop As Integer Implements xx_Interface.I_Prop
        Get
            Return _i_prop
        End Get
        Set(value As Integer)
            _i_prop = value
        End Set
    End Property
End Class
 
 
'abgeleitete Klasse
Public Class xx_B
    Inherits xx_A
End Class

Dim xb As New xx_B 'Instanz der abgeleiteten Klasse
xb.I_Prop = 700 'Zuweisung an geerbte implementierte Eigenschaft
Dim xx_I As xx_Interface = xb 'Abfrage des geerbten Interface
MsgBox(xx_I.I_Prop.ToString)  'Abfrage der Eigenschaft