question about reflection: extendsclass()

#REFLECTION_FILTER="untitled*"
Import reflection

Function Main()
	Local baseClass:= GetClass("a")
	
	Local classes:= GetClasses()
	For Local c:Int = 0 to classes.Length()-1
	
		If classes[c].ExtendsClass(baseClass)	
			Print( "Class: " + classes[c].Name() )
			
			Local methods:= classes[c].GetMethods()
			For Local m:Int = 0 to methods.Length()-1
				Print( "  Method: " + methods[m].Name() )
			Next
			
			Local fields:= classes[c].GetFields()
			For Local f:Int = 0 to fields.Length()-1
				Print( "  Field: " + fields[f].Name() )
			Next			
		End	
	Next
End

Class a
	Field fa
	
	Method ma()
	End
End

Class b extends a
	Field fb
	
	Method mb()
	End
End