by Versatcompany (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 7th May 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Drag and drop a form. No API, only 15 lines code
'make a image with name ex.moven
private sub moven_mousedown....etc
a=true
end sub
private sub moven_mouseup....etc
a=false
end sub
private sub moven_mousemove....etc
if a=true then
me.left=x
me.top=y
exit sub
elseif a=false then
exitsub
end if
end sub