Drag form without titlebar

Posted On 2017-08-06 by Kamilche
Tags: VB6 Custom Controls/Forms/Menus VB6 Custom Functions 
Views: 91

Drag a form that has no titlebar! Add the routine listed below, and call it in the 'MouseDown' event of the form (or a control on the form):

MoveWindow Me.Hwnd

Windows API/Global Declarations:

Private Declare Function ReleaseCapture Lib "user32" () As Long
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


Public Sub MoveWindow(TheHwnd As Long)

    SendMessage TheHwnd, &HA1, 2, 0&

End Sub

About the Author

has posted a total of 1 articles.

Comments On This Post

No comments on this post yet!

Do you have a thought relating to this post? You can post your comment here. If you have an unrelated question, you can use the Q&A section to ask it.

Or you can drop a note to the administrators if you're not sure where you should post.

Your IP address is:

Before you can post, you need to prove you are human. If you log in, this test goes away.

Code Links