<DIV align=right><IMG id=graphic1
style="HEIGHT: 360px; WIDTH: 308px; POSITION: absolute; LEFT: 10px; DISPLAY: none; TOP: 10px"
src="cole o enderešo da imagem aqui">
<SCRIPT language=VBScript>

' Script by Bill Scott, December, 1999
' billscott@redrivernet.com
' Notes:
' To expand an image call subroutine:
' expandSetup4
' To contract an existing image call subroutine:
' contractSetup4
' Be sure to remove display:none from the HTML image tag below.
' Set xpercent and ypercent in Window_Onload below to desired percentage size of the original image, i.e., 50=half size.
' Neither xpercent or ypercent have to be equal in value.
' You may reposition the image in the HTML image tag below. TOP=number of pixels from top of screen. LEFT=number of pixels from left side of screen.
' Set the actual width and height of image in the HTML image tag below.

Option Explicit

Dim myTimer2
Dim gw, gh, gcount
Dim gpl, gpt, gpr, gpb, gpxstart, gpystart, gxycount, ginc, gxyinc
Dim xpercent, ypercent, xtemp, ytemp
Dim origw, origh, origl, origt

Sub Window_OnLoad()
xpercent=100
ypercent=100
myTimer2=SetTimeOut("expandSetup4",2000)
End Sub

' This script expands a graphic image (image id=graphic1) from a zero point to any specified size. Image emanates from its top-left corner as a thin horizontal bar, then sweeps vertically.
Sub expandSetup4()
' Set desired X,Y graphic size compared to original**********
origw=graphic1.style.posWidth
origh=graphic1.style.posHeight
ClearTimeOut(myTimer2)
' Expand setup**********
xpercent=xpercent*.01
ypercent=ypercent*.01
' Get image width and height.
gw=CInt(xpercent*graphic1.style.posWidth)
gh=CInt(ypercent*graphic1.style.posHeight)

' Set expansion factor.
gcount=.04
ginc=gcount

' Reduce image size to zero, then display.
graphic1.style.posWidth=0
graphic1.style.posHeight=8
graphic1.style.display=""

expandgraphich4
End Sub

Sub expandgraphich4()
ClearTimeOut(myTimer2)
graphic1.style.posWidth=CInt(gcount*gw)
if gcount<1.0 then
gcount=gcount+ginc
myTimer2=SetTimeOut("expandgraphich4",10)
else
gcount=.04
myTimer2=SetTimeOut("expandgraphicv4",200)
end if
End Sub

Sub expandgraphicv4()
ClearTimeOut(myTimer2)
graphic1.style.posHeight=CInt(gcount*gh)
if gcount<1.0 then
gcount=gcount+ginc
myTimer2=SetTimeOut("expandgraphicv4",50)
end if
End Sub

Sub contractSetup4()
ClearTimeOut(myTimer2)
' Contract setup**********
' Get image width and height.
gw=graphic1.style.posWidth
gh=graphic1.style.posHeight

' Set contraction factor.
gcount=.96
gxyinc=.04

contractgraphicv4
End Sub

Sub contractgraphicv4()
ClearTimeOut(myTimer2)
graphic1.style.posHeight=CInt(gcount*gh)
if gcount>gxyinc OR graphic1.style.posHeight>8 then
gcount=gcount-gxyinc
myTimer2=SetTimeOut("contractgraphicv4",50)
else
graphic1.style.posHeight=8
gcount=.96
myTimer2=SetTimeOut("contractgraphich4",200)
end if
End Sub

Sub contractgraphich4()
ClearTimeOut(myTimer2)
graphic1.style.posWidth=CInt(gcount*gw)
if gcount<gxyinc then
graphic1.style.display="none"
graphic1.style.posWidth=origw
graphic1.style.posHeight=origh
else
gcount=gcount-gxyinc
myTimer2=SetTimeOut("contractgraphich4",10)
end if
End Sub

</SCRIPT>