drag move title without title bar?
Hi,
Try this code:
---xxx---
Private Const WM_SYSCOMMAND = &H112
Private Const MOUSE_MOVE = &HF012&
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
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
ReleaseCapture
Call SendMessage(hWnd, WM_SYSCOMMAND, MOUSE_MOVE, 0)
End Sub
---xxx---
Nos vemos.
Guillermo
---
Microsoft Visual Basic MVP
Te invito a visitar mis pginas sobre Visual Basic
http://guille.costasol.net/
==================================================
Quote:
> how to drag/move a form without using the title bar?
> please post sample code!
> thanks
