showing an image while its dragging

[ae_jester]

Is it possible to show the image that is being dragged with drag & drop???

All it seems to do is show an outline of the image.

[MrPolite]

Umm I never used that little Drag and Drop thingie, so I cant help you much with that
this is the way I always moved a picturebox or something, if you dont mind using it. Just start a new project and copy the whole thing in there. You need a picturebox too

Option Explicit
 
Dim isDragging As Boolean
Dim StartX As Single, StartY As Single
 
Private Sub Form_Load()
    Me.ScaleMode = vbPixels
    Picture1.ScaleMode = vbPixels
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    isDragging = True
    StartX = X
    StartY = Y
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If isDragging Then
        Picture1.Move Picture1.Left - StartX + X, Picture1.Top - StartY + Y
    End If
End Sub
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    isDragging = False
End Sub

[ae_jester]

I was afraid that was the only way. That will complicate things a lot more now with all the crap on my forms :-)

Oh well, thanx for responding.

[MrPolite]

UMM!! I didnt say that;s the only way, I just do it that way... there might be a way to do it with drag and drop too

[ae_jester]

yeah well I cant find anything on msdn except for showing a little icon during the dragging process, so I guess I'm out of luck there