Sub AutoOpen()
	'Связывание объекта Application с событиями
	Set App1.AppEv = Application
End Sub