Help: GetTypeName

I search a easy way to know type name wihtout using ToString() generic method ?

This is my last result:

Type TA
EndType 

Type TB
EndType 

Type TC
EndType 

'new object
Local obj:TB=New TB
Print GetTypeName(obj)

'Retrieve type name
Function GetTypeName$(thing:Object)	
	Select True    
		Case TA(thing)<>Null
			Return "obj - Type A"
			
		Case TB(thing)<>Null
			Return "obj - Type B"
			
		Case TC(thing)<>Null
			Return "obj - Type C"			
	EndSelect 	
EndFunction 

My main problem is to register type like that :

Type TZ
EndType 
RegisterType(TZ,"obj - type Z")

It's not possible to code that in Bmax