Add(MainForm,5360464,21,105)
{
 Left=20
 Top=105
 Width=622
 Height=105
}
Add(VBJScript,11241776,112,140)
{
 WorkPoints=#6:doWork|
 VarPoints=#4:VOut|
 DataPoints=#2:D1|
 Script=#24:sub doWork (Data, Index)|15:    ss = sys.D1|13:    msgbox ss|7:end sub|0:|53:'Вот пример неработы входа D1 с русскими переменными.|0:|68:'Так же компонент не работает, если входы назвать длинными именами, |67:'например DFolderPath, DAllowedSize, DSecurityGroup, DKeyUserMail, |69:'притом я заметил, что если длинная переменная одна - работает, если |67:'много - нет. Короче где-то ограничение на список переменных стоит.|0:|78:'Еще неизвестно как обращаться к выходам компонента, если их много. Если один,|78:'то понятно (отчасти, так как неясно с названиями выходов - как бы я ни назвал|50:'выход, все равно надо записывать функцию GetVar):|0:|29:function GetVar (Data, Index)|28:     GetVar = "РусEngРусEng"|12:end function|0:|72:' А вот если я хочу несколько выходов, то ниче не ясно как это работает |
 link(D1,6363543:Var,[])
}
Add(GlobalVar,6363543,112,98)
{
 Name="Data"
 Data=String(EngРусEngРусEng)
}
Add(Button,5020491,56,28)
{
 Left=5
 Top=5
 link(onClick,11241776:doWork,[(93,34)(93,146)])
}
Add(Button,7260539,56,203)
{
 Left=70
 Top=5
 link(onClick,9886978:doMessage,[])
}
Add(Message,9886978,112,203)
{
 link(Message,11241776:VOut,[])
}
Add(LED,7171463,196,56)
{
 Left=5
 Top=50
}
Add(Label,3324564,238,56)
{
 Left=5
 Top=30
 Width=449
 Height=17
 Caption="Глючный светодиод :-) - глючит при работе программы, если он присутствует на форме"
}
Add(Label,12021784,196,21)
{
 Left=40
 Top=55
 Width=571
 Height=17
 Caption="Никакие параменры не менял, просто на форму поставил - убрать его - ошибки при закрытии формы исчезнут"
}