' 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