在窗体上建立2个图片框，当图片拖到图片2上，放开鼠标，图片消失，单击窗体重现

用VB程序里编写，在窗体上建立两个图片框，名称分别为picture1和picture2，当把picture1拖到picture2上，然后放开鼠标，则picture1消失，单击窗体后picture1重新出现。

Private Sub Form_Click()
Picture1.Visible = True
End Sub

Private Sub Form_Load()
Picture1.DragMode = 1
End Sub

Private Sub Picture2_DragDrop(Source As Control, X As Single, Y As Single)
Picture1.Visible = False
End Sub