IMetabaseCustomForeEvents.Add

Sub UserProc;
Var
    MB: IMetabase;
    CustomClassExtender: IMetabaseCustomExtender;
    Events: IMetabaseCustomForeEvents;
    ForeEvent: IMetabaseCustomForeEvent;
Begin
    MB := MetabaseClass.Active;
    //Get custom classes container
    CustomClassExtender := Mb.SpecialObject(MetabaseSpecialObject.CustomExtender).Edit As IMetabaseCustomExtender;
    //Get the list of events
    Events := CustomClassExtender.Events;
    ForeEvent := Events.Add("EVENT_ENTER");
    ForeEvent.Name := "Application login";
    (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;
    //Get custom classes container
    CustomClassExtender := Mb.SpecialObject[MetabaseSpecialObject.msoCustomExtender].Edit() As IMetabaseCustomExtender;
    //Get the list of events
    Events := CustomClassExtender.Events;
    ForeEvent := Events.Add("EVENT_ENTER");
    ForeEvent.Name := "Application login";
    (CustomClassExtender As IMetabaseObject).Save();
End Sub;