Ciao ha tutti, ho un problema con uno script vb e visto che sono alle prime armi vi chiedo aiuto.
si tratta di uno script che serve per ottenere l'effetto zoom su una immagine. Per come e' scritto funziona con i click del mouse. Io vorrei invece che funzionasse con due tasti della tastiera. Mi potete consigliare qualcosa? Vi incollo qua' lo script
<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

-->

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


Come vedete il tutto e' gestito da Onclick e Oncontextmenu