Imports System
Public Class Base
End Class
Public Class Derived
Inherits Base
End Class
Public Class Program
Public Shared Sub Main()
Console.WriteLine(GetType(Derived).IsSubclassOf(GetType(Base)))
Console.WriteLine(GetType(Base).IsSubclassOf(GetType(Base)))
End Sub
End Class
' run:
'
' True
' False
'