A* Move a form without a title bar!
Move any form without a title bar! You can use a label, command button, picturebox, anything to move the form.
Original Author: rikkter
Code
'Put this in a module:
Declare Sub ReleaseCapture Lib "user32" ()
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wparam As Integer, ByVal iparam As Long) As Long
Public Sub formdrag(theform As Form)
ReleaseCapture
Call SendMessage(theform.hWnd, &HA1, 2, 0&)
End Sub
'**************
'put this in the object that u want to move the form in the MouseDown:
formdrag Me
'thats it...vote for me if u like it...or email me if u need help...it should work...worked for me
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.