Drag a Control

Posted: 2020-08-30
By: vb6boy
Viewed: 149

Filed Under:

VB6 Code Cache, VB6 Custom Functions

No attachments for this post

Drag a control at runtime

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

Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   ReleaseCapture
   SendMessage Picture1.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
End Sub

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.