Mega Code Archive

 

Categories / VB.Net / Reflection

 

Type IsSubclassOf

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