déplacer des picture avec la souris

' Cliquez pour sélectionner le picture à déplacer,
' puis déplacez le à l'aide de la souris, il la suit.
' DOUBLE CLIQUEZ ou appuyez sur la barre d'espace
' pour positionner le picture à l'endroit désiré.
' Vous pouvez le positionner aussi si vous ne cliquez
' qu'une seule fois seulement, en maintenant le bouton
' de la souris enfoncé et en glissant la souris
' sur le form 0 en dehors du picture.
' puis relachez le bouton de la souris.
label deplace1,deplace2,deplace3
dim xp1,yp1,xp2,yp2,xp3,yp3
full_space 0

picture 1:left 1,100:top 1,100:color 1,100,0,0:on_click 1,deplace1
picture 2:left 2,210:top 2,210:color 2,0,100,0:on_click 2,deplace2
picture 3:left 3,320:top 3,320:color 3,0,0,100:on_click 3,deplace3
xp1=100:yp1=100:xp2=210:yp2=210:xp3=320:yp3=320
end

deplace1:
off_click 1
  while (xp1<width(0) and yp1<height(0))
      left 1,xp1:top 1,yp1:xp1=mouse_x_position(0):yp1=mouse_y_position(0)
      if (mouse_left_down(1)=1 and mouse_left_up(1)=0) or scancode=32 then exit_while
  end_while
on_click 1,deplace1
return

deplace2:
off_click 2
  while (xp2<width(0) and yp2<height(0))
      left 2,xp2:top 2,yp2:xp2=mouse_x_position(0):yp2=mouse_y_position(0)
      if (mouse_left_down(2)=1 and mouse_left_up(2)=0) or scancode=32 then exit_while
  end_while
on_click 2,deplace2
return

deplace3:
off_click 3
  while (xp3<width(0) and yp3<height(0))
      left 3,xp3:top 3,yp3:xp3=mouse_x_position(0):yp3=mouse_y_position(0)
      if (mouse_left_down(3)=1 and mouse_left_up(3)=0) or scancode=32 then exit_while
  end_while
on_click 3,deplace3
return