При наследовании в качестве базового класса указан класс, соответствующий простому типу данных. Наследование от простых типов данных запрещено.
Измените класс, используемый в качестве базового.
Class TestClass: Variant
End Class TestClass;
При компиляции указанного кода будет сгенерирована ошибка «Нельзя наследовать от класса Variant». Для разрешения ошибки необходимо унаследовать пользовательский класс от другого класса, например, «Object».
См. также: