* для модальных форм необходимо изменить 
* значение свойства Visible тулбара
* до старта метода show формы,
* т.к. активикс помешает прорисоваться контролам формы
if this.WindowType =  1  and this.oletoolBar.Visible
	this.oletoolBar.Visible = .f.
	this.lOletoolBarVisible = .t.
else
	this.lOletoolBarVisible = this.oletoolBar.Visible
endif

with this
	if .lInit and .lOletoolBarVisible and !.oletoolBar.Visible
		* возвращаем значение свойству Visible тулбара
		.oletoolBar.Visible = .t.
		.oletoolBar.obJECT.Enabled = .t.
		.Show()
		* становимся на первый-же доступный контрол
		local loControl
		for each loControl in .controls
			if pemstatus(loControl, 'setfocus',  5 ) and ;
			   pemstatus(loControl, 'visible',  5 )  and ;
			   pemstatus(loControl, 'enabled',  5 )  and ;
			   loControl.visible and loControl.enabled
				loControl.setfocus()
				exit
			endif
		endfor
	endif
	* сбрасываем флаг, если необходимо
	if .lInit
		store .f. to .lInit
	endif
endwith