Moving object from point to point...

Here i have modified my code to see if it move straight like you tell me...
But the object don't move at all O_O'

Here's the code:

Graphics 800,600,32,2
SetBuffer BackBuffer()

Global go=LoadImage("go.bmp")
Global enemy=LoadImage("enemy.bmp")
MidHandle go
MidHandle enemy
Global xmove2
Global ymove2
Global velocita=1
xpart=100
ypart=100
xdest=600
ydest=300
x=xpart
y=ypart
xmove=xdest-xpart
ymove=ydest-ypart
distance=Sqr(500*500+200*200)


;MAIN
While Not KeyDown(1)
xmove=500/distance
ymove=200/distance
Cls
DrawImage go,xdest,ydest
DrawImage enemy,x,y
x=x+xmove
y=y+ymove
Print distance
Flip
Wend
;END

Don't know where i make errors.