Здесь решение, а не вопрос. Вдруг кому-то пригодится. Итак, вызов функции (prg), выше кот. стоит With Something loForm = CREATEOBJECT("Test") loForm.VISIBLE = .T. DEFINE CLASS Test AS FORM ADD OBJECT LabelTest AS LABEL NAME='FormTest' FUNCTION INIT LOCAL loForm, loThis THIS.VISIBLE...