Перемещение окна

[grindars]

Как перемещать окно без заголовка? В поиске ничего по теме не нашел

[Zoomie]

Если форму таскать за любое место то:

Код: Выделить всё

Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

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)

Call ReleaseCapture
Call SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)

End Sub

[BV]

http://bbs.vbstreets.ru/viewtopic.php?t ... buttondown