Dichiarazione di una variabile oggetto come interfaccia istanziando una classe.

istanziazione di una classe dichiarando l'oggetto come interfaccia.

Module Module1

    Sub Main()
        Dim miaClasse As Interfaccia = New base
        miaClasse.metodo()

    End Sub

End Module

Interface Interfaccia
    Property proprieta As Integer
    Sub metodo()
End Interface

Class base

    Implements Interfaccia
    Private _variabile As Integer
    Public Sub metodo() Implements Interfaccia.metodo
        Console.WriteLine("esecuzione del metodo")
        Console.ReadKey()

    End Sub

    Public Property proprieta As Integer Implements Interfaccia.proprieta
        Get
            proprieta = _variabile
        End Get
        Set(ByVal value As Integer)
            _variabile = value
        End Set
    End Property
End Class