3、对象关于拖放的事件 (1)DragDrog事件：在目标对象上投放时触发。 Private Sub_DragDrop(Source As Control,X As Single, Y As Single) End Sub (2)DragOver事件：经过目标对象时触发。 Private Sub_DragOver(Source As Control,X As Single,Y As Single,State As Integer) End Sub3、对象关于拖放的事件 （1）DragDrog事件：在目标对象上投放时触发。 Private Sub 对象_DragDrop(Source As Control, X As Single, Y As Single) End Sub （2）DragOver事件：经过目标对象时触发。 Private Sub 对象_DragOver(Source As Control, X As Single, Y As Single, State As Integer) End Sub