<SCRIPT LANGUAGE="VBSCRIPT">
<!--

Dim DotL(24)

Dim DotT(24)

Dim MapWidth, MapHeight, MapLeft, MapTop

Dim i, Zebbie, framex, framez



MapWidth = 750

MapHeight = 598



i = 1

Zebbie = 1


Sub HideMap()

If i < 1000 then

MapWidth = MapWidth + 200

MapHeight = MapHeight + 200


ZooMap.style.width = MapWidth

ZooMap.style.height = MapHeight

ZooMap.style.left = MapLeft - 0

ZooMap.style.top = MapTop - 0

i = i + 1



Else

ZooMap.style.width = 750

ZooMap.style.height =598

MapWidth = 420

MapHeight = 340

MapLeft = 123

MapTop = 151

i = 1



End If

End Sub

Sub ShowMap()

If i < 1000 then

MapWidth = MapWidth - 150

MapHeight = MapHeight - 150

ZooMap.style.width = MapWidth

ZooMap.style.height = MapHeight

ZooMap.style.left = MapLeft - 0

ZooMap.style.top = MapTop - 0

i = i + 1



Else

ZooMap.style.width = 750
ZooMap.style.height = 598
MapWidth = 420

MapHeight = 340

MapLeft = -0

MapTop = -0
i = 1



End If

End Sub


Sub GestioneEvento()

If Window.Event.KeyCode = 37 Then
ShowMap
ElseIf Window.Event.KeyCode = 39 Then
HideMap
End If

End Sub

-->

</SCRIPT>
<BODY bgcolor="white" OnKeyDown="GestioneEvento()">
<DIV style="position:relative; width:420; height:340; align="center">
[img]C:/mappe/PA_c.GIF[/img]






freccia DESTRA e SINISTRA.