IMetabaseCustomForeEvents.Add

Sub UserProc;
Var
    MB: IMetabase;
    CustomClassExtender: IMetabaseCustomExtender;
    Events: IMetabaseCustomForeEvents;
    ForeEvent: IMetabaseCustomForeEvent;
Begin
    MB := MetabaseClass.Active;
    //Получение контейнера пользовательских классов
    CustomClassExtender := Mb.SpecialObject(MetabaseSpecialObject.CustomExtender).Edit As IMetabaseCustomExtender;
    //Получение списка событий
    Events := CustomClassExtender.Events;
    ForeEvent := Events.Add("EVENT_ENTER");
    ForeEvent.Name := "Вход в приложение";
    (CustomClassExtender As IMetabaseObject).Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    CustomClassExtender: IMetabaseCustomExtender;
    Events: IMetabaseCustomForeEvents;
    ForeEvent: IMetabaseCustomForeEvent;
Begin
    MB := Params.Metabase;
    //Получение контейнера пользовательских классов
    CustomClassExtender := Mb.SpecialObject[MetabaseSpecialObject.msoCustomExtender].Edit() As IMetabaseCustomExtender;
    //Получение списка событий
    Events := CustomClassExtender.Events;
    ForeEvent := Events.Add("EVENT_ENTER");
    ForeEvent.Name := "Вход в приложение";
    (CustomClassExtender As IMetabaseObject).Save();
End Sub;