Drag

SUB Drag ( Data AS Variant [ , Format AS String ] )

Начинает процесс drag & drop.