Imports System
Public Class Class1
End Class
Public Class DerivedC1
Inherits Class1
End Class
Class IsSubclassTest
Public Shared Sub Main()
Dim myC1 As Class1 = New Class1
Dim myDClass As DerivedC1 = New DerivedC1
Dim myClassType As Type = myC1.GetType
Dim myDClassType As Type = myDClass.GetType
Console.WriteLine(myDClassType.IsSubclassOf(myClassType))
End Sub
End Class