' Gambas class file 'by postapase Public Sub Form_Open() Me.Center End Public Sub Button1_Drop() Button1.Picture = Picture[Drag.Data] End Public Sub Button2_MouseDrag() If Mouse.Left Then Button2.Drag("icon:/64/linux") Endif End Public Sub Button3_MouseDrag() If Mouse.Left Then Button3.Drag("icon:/64/book") Endif End Public Sub Button4_MouseDrag() If Mouse.Left Then Button4.Drag("icon:/64/gambas") Endif End Public Sub Button5_MouseDrag() If Mouse.Left Then Button5.Drag("icon:/64/gnu") Endif End Public Sub Button1_Click() Button1.Picture = Null End