[VB6]Muovere un oggetto da tastiera

[vitna91]

Ciao a tutti avrei bisogno che tramite le frecce destra e sinistra possa muovere un oggetto tipo:

If 'premo freccia destra' then
shape1.left = shape1.left + 10
end if

if 'premo freccia sinistra' then
shape1.left = shape1.left - 10
end if

Poi naturalmente io lo inseriro in un ciclo, con un timer per fare in modo che il programma possa ricevere costantemente questi comandi, ma mi serve la parte 'premo freccia sinistra', come si fa?

Grazie.