LOCAL lnFormCount, lnFindForm, lcStartedForm
lnFindForm = 0

FOR lnFormCount = 1 TO _SCREEN.FormCount  && обратимся к коллекции форм объекта _Screen
	IF _SCREEN.Forms(lnFormCount).Name = "МояФорма"
		lnFindForm = lnFormCount
		EXIT
	ENDIF	
ENDFOR	
*-если такая форма не найдена, то запускаем её
IF lnFindForm = 0
	DO FORM frmForma NAME lcStartedForm WITH "МояФорма"
	lcStartedForm.Name = "МояФорма"  && переопределим имя вновь запущенной формы
ENDIF