
Originally Posted by
LaVolpe
When you say manual drag, what exactly do you mean? Can you show us the code you use to perform the drag operation?
DragMode is Manual, that's what I meant. I don't have the project with me at the moment, but a piece of drag & drop code should be something like this:
Code:
Private Sub imgClue_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
X1 = X
Y1 = Y
End Sub
Private Sub imgClue_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
imgClue(Index).Drag
imgClue(Index).Enabled = False
End If
End Sub
Private Sub Picture1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Source.Left = X - X1 / 15
Source.Top = Y - Y1 / 15
End Sub
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single, State As Integer)
Source.Enabled = True
End Sub
Picture1 is spread across the whole form and ScaleMode is Pixel