Add(MainForm,11020614,308,301)
{
 link(onCreate,4900988:doWork,[])
}
Add(VBJScript,4900988,364,315)
{
 WorkPoints=#6:doWork|
 EventPoints=#7:onValue|
 DataPoints=#4:Text|6:Header|
 Script=#22:Sub doWork(Data,Index)|44:  sys.onValue InputBox(sys.Text, sys.Header)|7:End Sub|
 UseName=0
 link(onValue,2996465:doText,[])
 link(Text,6398593:Text,[])
 link(Header,9583772:Text,[(377,306)(384,306)])
}
Add(VisualStrings,9583772,378,259)
{
 Lines=#9:Заголовок|
 Width=67
}
Add(VisualStrings,6398593,364,231)
{
 Lines=#15:Текст сообщения|
 Width=144
}
Add(Label,2996465,420,315)
{
 Left=45
 Top=35
 Height=28
 Font=[MS Sans Serif,14,0,0,1]
 Caption=""
}