Открытие копии формы

Автор: Кривцов Анатолий

Чтобы иметь такую возможность, необходимо в заголоке модуля формы объявить переменную типа Form (Dim frm as Form), а в вызывающей процедуре создать следующую конструкцию (Имя формы - "Проба"):
С копией можно работать, как и с оригиналом, но с учетом следующих ограничений:
     Если закрыть оригинал - закроется и копия.
     В семействе Forms будет два объекта с одинаковым именем.Ссылка Forms![Проба]... будет обращаться к оригиналу, поэтому в вычисляемых элементах формы и в источниках строк ListBox и ComboBox следует указывать короткую ссылку Form!..... , а во внешних процедурах использовать объект Form, ссылку на который можно получить через Screen.ActiveForm, или пройдя по семейству Forms с конца, или передавая Me в качестве аргумента.
Примечание:
Из копии формы можно открыть вторую копию и т.д.

Set frm = New Form_Проба

'------------- Не обязательно ---------------

frm.Caption = frm.Caption & " (Копия)"

frm.Filter = .......

frm.FilterOn = True

'--------------------------------------------

frm.Visible = True