Pastetool - DragObject
URL: , Paste another' for DragObject
Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "USER32" ()
' for DragObject
Public Sub DragObject(theObject As Object)
Call ReleaseCapture
SendMessage theObject.hwnd, &HA1, 2, 0&
End Sub
Download code
This visual basic code was pasted on September 8, 2009
Protected with advance Anti-SPAM techniques :)
Coded and designed by Fedmich
