I have created a drag and drop program that resembles a recycle bin using the DragDrop method in Visual Basic. 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.
|
|
|
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