loType.BaseType.NameUntested. And it only gives the immediate parent - if the actual class has a deeper hierarchy it won't work.....
Dim parent As Type = t ' where t is type of actual class While True If parent.BaseType = GetType([Object]) Then Exit While Else parent = parent.BaseType End If End While 'Parent is now your base classBut at that point it probably makes as much sense to pass in the name of the class anyway....