>>427-428
今はこんな風にずらーっと。
『すべてのコントロールに対して』なイベントはないものかと思ったんですが
欲張りというものでしたね。

Private Sub Command5_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Call OLEDragDrop(Data)
End Sub

Private Sub Command6_OLEDragDrop(Index As Integer, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Call OLEDragDrop(Data)
End Sub

Private Sub Command7_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Call OLEDragDrop(Data)
End Sub

Private Sub Command8_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Call OLEDragDrop(Data)
End Sub

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Call OLEDragDrop(Data)
End Sub

Private Sub Label1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Call OLEDragDrop(Data)
End Sub

Private Sub Picture1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Call OLEDragDrop(Data)
End Sub