Add(Edit,1332730,245,154)
{
 Left=10
 Top=30
 Width=110
 Text="-30"
 DataType=2
}
Add(Label,10255789,245,105)
{
 Left=10
 Top=10
 Width=108
 Height=17
 Caption="+- sec"
}
Add(Label,10206159,294,105)
{
 Left=10
 Top=60
 Width=101
 Height=17
 Caption="End Data:"
}
Add(Edit,1628333,294,154)
{
 Left=10
 Top=80
 Width=110
 Text="01/02/2007 00:00:00"
}
Add(Label,6404101,343,154)
{
 Left=10
 Top=110
 Width=72
 Height=17
 Caption="Result:"
}
Add(Edit,14725073,343,203)
{
 Left=10
 Top=130
 Width=110
 Text=""
}
Add(VBJScript,1929417,266,203)
{
 WorkPoints=#6:doWork|
 EventPoints=#7:onEvent|
 DataPoints=#5:Data1|5:Data2|
 Script=#0:|15:Option Explicit|0:|27:Function doWork(Data,Index)|3:   |49:   Sys.onEvent DateAdd("S", Sys.Data1, Sys.Data2)|2:  |12:End Function|
 UseName=0
 link(onEvent,14725073:doText,[])
 link(Data1,1332730:Text,[(272,195)(251,195)])
 link(Data2,1628333:Text,[(279,195)(300,195)])
}
Add(Button,383065,210,203)
{
 Left=40
 Top=165
 link(onClick,1929417:doWork,[])
}