Returns the immediate descendants of the specified class. This feature is provided as a convenience to you, but it has not yet been thoroughly tested.
[ ] //My declarations
[ ] window MainWin TestApplication
[-] window DialogBox xCheckBox
[ ]
[-] main()
[ ] LIST OF WINDOW lw = {TestApplication, xCheckBox}
[ ] WINDOW w
[-] for each w in lw
[ ] RelatedClasses(w)
[ ]
[-] testcase RelatedClasses(WINDOW w) appstate none
[ ] ResPrintList ("Class is: {ClassOf(w)}, Subclasses are:", GetSubClasses(ClassOf(w)))
[ ]
[ ] // Testcase returns for TestApplication and xCheckBox:
[ ] // Class is: MainWin, Subclasses are: {VBMainForm, VBMDIForm}
[ ] // Class is: DialogBox, Subclasses are: {MessageBoxClass, VBForm}