ONKEYDOWN.... (vbs)

If Window.Event.KeyKode = <tasto> Then
ShowMap
Else If Window.Event.KeyKode = <tasto> Then
HideMap
End If