Arrastrar y Soltar

' Gambas class file

Public Sub _new()

End

Public Sub Form_Open()

  PictureBoxSoltar.Drop = True
  PictureBox1.tag = "cb.png"
  PictureBox1.picture = Picture["cb.png"]

  PictureBox2.tag = "ce.png"
  PictureBox2.picture = Picture["ce.png"]

  PictureBox3.tag = "co.png"
  PictureBox3.picture = Picture["co.png"]

  PictureBox4.tag = "cc.png"
  PictureBox4.picture = Picture["cc.png"]

  Drag.icon = Picture["drop.png"] 'icono que muetra cuando arrastramos algo.

End

'cuando suelto, cargo la imagen que indica el path guardado en el objeto drag
Public Sub PictureBoxSoltar_Drop()

  PictureBoxSoltar.Picture = Picture[Drag.data]

End

'
'Uso el método drag para informar que dato es arrastrado si pulso en el control
Public Sub PictureBox1_MouseDrag()

  PictureBox1.Drag(PictureBox1.tag)

End

Public Sub PictureBox2_MouseDrag()

  PictureBox2.Drag(PictureBox2.tag)

End

Public Sub PictureBox3_MouseDrag()

  PictureBox3.Drag(PictureBox3.tag)

End

Public Sub PictureBox4_MouseDrag()

  PictureBox4.Drag(PictureBox4.tag)

End

'defino el icono del mouse mientras arrastro algo....
Public Sub Form_DragMove()

  Drag.Show()

End