Buenas noches!.

A penas tengo tiempo con el dichoso trabajo. Os muestro un ejemplo
Estaba interesado en conocer si un objeto es una instancia de una clase o heredado de una clase.

Clase Animal:
Private hnombre As String
Property nombre As String

Public Sub _new(snom As String)

Me.nombre = snom

End


Private Function nombre_Read() As String

Return hnombre

End

Private Sub nombre_Write(Value As String)

hnombre = Value

End

Public Sub Habla()



End


Clase Gato:
Inherits Animal

Public Sub Habla()

Print Me.nombre & " dice Miauu"

End


Main:
Public Sub Main()

Dim casper As Gato

casper = New Gato("Casper")
casper.Habla()

Print Object.Is(casper, "Animal")
Print Object.Is(casper, "Gato")

End


Es verdadero en los dos casos.

Saludos