Drag form without titlebar

---

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

Code

Public Sub MoveWindow(TheHwnd As Long)

    ReleaseCapture
    SendMessage TheHwnd, &HA1, 2, 0&

End Sub

About this post

Posted: 2017-08-06
By: Kamilche
Viewed: 375 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.