Add(MainForm,2953706,21,105)
{
 link(onCreate,13219858:doData,[(95,125)(95,167)])
}
Add(DoData,13219858,105,161)
{
 Data=String(Маленькая проверочка голоса)
 link(onEventData,15526334:doWork,[])
}
Add(VBJScript,15526334,175,161)
{
 WorkPoints=#6:doWork|
 Script=#12:Dim  objSAPI|0:|42:Set objSAPI = CreateObject("SAPI.SpVoice")|0:|22:Sub doWork(Data,Index)|23: objSAPI.Speak Data, 0|7:End Sub|
 UseName=0
}

Add(MainForm,2559029,182,126)
{
 link(onCreate,13219858:doData,[])
}
Add(DoData,13219858,238,140)
{
 Data=String(Маленькая проверочка голоса)
 link(onEventData,224191:doWork,[])
}
Add(VBJScript,224191,294,140)
{
 WorkPoints=#6:doWork|
 Script=#22:Sub doWork(Data,Index)|9:Dim  sapi|38:Set sapi=CreateObject("sapi.spvoice") |15:sapi.Speak Data|7:End Sub|0:|0:|4:    |
 UseName=0
}

Add(MainForm,2953706,77,105)
{
 Width=287
 Height=116
}
Add(Button,12330739,140,105)
{
 Left=20
 Top=25
 Caption="Время"
 link(onClick,224191:doWork,[])
}
Add(VBJScript,224191,203,105)
{
 WorkPoints=#6:doWork|
 Script=#22:Sub doWork(Data,Index)|9:Dim  sapi|38:Set sapi=CreateObject("sapi.spvoice") |33:sapi.Speak FormatDateTime(now, 3)|18:'sapi.Speak Time()|7:End Sub|0:|0:|4:    |
 UseName=0
}