TDExtensible : Object
TDExtensible function returns a StringList Object containing a string list of the tables that are extensible using Table Designer.
Sample code:
Dim List as Object
List = TDExtensible
For I = 0 to List.Count - 1
Print List[I]
Next I
Print ""
Print "Total: " & List.Count