Add(MainForm,2953706,203,63)
{
Width=116
Height=57
Color=-16777211
Ctl3D=0
WinStyle=1
BorderStyle=0
TransparentColor=0
Position=1
Point(onShow)
Point(Handle)
Point(doVisible)
Point(onHide)
}
Add(Img_Text,12063955,301,119)
{
X=10
Y=10
Font=[Courier New,22,1,255,204]
Text="ТЕКСТ"
Point(Transform)
link(Bitmap,3944072:Bitmap,[(307,107)(291,107)(291,162)(251,162)])
}
Add(PaintBox,3944072,245,119)
{
Width=116
Height=57
Align=5
Color=16777215
Point(doVisible)
link(onBeforeDraw,12063955:doDraw,[])
}
Add(Switch,360759,196,133)
{
DataOn=Integer(1)
DataOff=Integer(0)
link(onSwitch,3944072:doVisible,[])
}
Add(Timer,7784791,147,133)
{
Interval=40
link(onTimer,360759:doSwitch,[])
}
В любом поисковике набери Литрбол и Enter