making images KEEP moving

this is my first game i'm making and i have it so that when you press D a picture moves to the right but it only moves 1 pixel. how will i make it keep moving 1 pixel at a time without tapping the button?

my code is:
Graphics 800,600

SetBuffer BackBuffer()
Global char=LoadImage ("char.png")
Global charx,chary
charx=0
chary=562

While Not KeyHit(1)

Cls
DrawImage char, charx,chary
Flip
.move
While KeyHit(32)
charx=charx +1
Wend
While KeyHit(30)
charx=charx -1
Wend

Wend

Do "While KeyDown(32) "

whoops sorry wrong forum ment to put it in blitzplus
can a mod move this for me?