From postapase, 2 Years ago, written in GAMBAS.
Embed
  1. ' Gambas class file
  2.  
  3. 'by postapase
  4.  
  5. Public Sub Form_Open()
  6.     Me.Center
  7.  
  8. Public Sub Button1_Drop()
  9.    Button1.Picture = Picture[Drag.Data]
  10.  End
  11.  
  12. Public Sub Button2_MouseDrag()
  13.         Button2.Drag("icon:/64/linux")
  14.    Endif
  15.  
  16. Public Sub Button3_MouseDrag()
  17.           Button3.Drag("icon:/64/book")
  18.     Endif
  19.  
  20. Public Sub Button4_MouseDrag()
  21.           Button4.Drag("icon:/64/gambas")
  22.     Endif
  23.  
  24. Public Sub Button5_MouseDrag()
  25.           Button5.Drag("icon:/64/gnu")
  26.     Endif
  27.  
  28. Public Sub Button1_Click()
  29.      Button1.Picture = Null
  30.