Make your own free website on Tripod.com

A Drag and Drop Recycle Bin

I have created a drag and drop program that resembles a recycle bin. When you run this program, simply drag the items at the top and drop them into the recycle bin, those item will disappear. To permanently erase the items, drag the fire into the recycle bin and the items will burn up (you could actually see the fire burning). This in fact a simple animation program. The diagram on the right shows the interface after burning the items.

 

The codes

Private Sub Form_Click()
Label1.Visible = False
End Sub

Private Sub Image4_DragDrop(Source As Control, X As Single, Y As Single)
Source.Visible = False
If Source.Tag = "Fire" Then
Image4.Picture = Image5.Picture
End If

End Sub

Private Sub instruct_Click()
Label1.Visible = True
End Sub