Return the Name of a KTM Parent Class

Question / Problem: 

How do you return the name of a parent class using KTM scripting?

Answer / Solution: 

The code below will return the name of the parent class of the current document's extraction class. The code will return the class as a message box:

   Dim oClass As CscClass
   Dim oParentClass As CscClass

   Set oClass = Project.ClassByName(pXDoc.ExtractionClass)
   Set oParentClass = oClass.ParentClass

   MsgBox oParentClass.Name + " is the parent of class " + oClass.Name

Applies to: