Dragging Help

[joey o.]

I'm having a problem with the following code and I need a tip or workaround:

Dim OldX As Single
Dim OldY As Single
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Left = X - OldX
Source.Top = Y - OldY
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
OldX = X
OldY = Y
Picture1.Drag
End If

The problem is the x,y of the form is not realized unless the cursor leaves the original plane of the picturebox. In other words if you put the cursor in the middle of a picbox that is 1000 whatevers wide by 1000 whatevers high you can't move the picture box 499 or less whatevers. Any help?

Thanks,
Joey O

[Zaf Khan]

Check out the help file
lotsa info and sample code

DocZaf
{;->

[hankshlump]

[CODE]
Option Explicit

Dim MouseX As Single
Dim MouseY As Single


Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Left = X - MouseX
Source.Top = Y - MouseY
End Sub

Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
Source.Left = Picture1.Left + X - MouseX
Source.Top = Picture1.Top + Y - MouseY
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseX = X
MouseY = Y
Picture1.Drag
End Sub
[CODE]
it seems to work fine for me every time