Friday 31 January 2014

Drag and Drop

a = Shapes.AddEllipse(100,100)
GraphicsWindow.MouseMove = mousemove

Sub mousemove
  While Mouse.IsLeftButtonDown
    Shapes.move(a, GraphicsWindow.MouseX, GraphicsWindow.MouseY)
  Endwhile
endsub



Posted by at
Labels:

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)