Перемещать окно при BorderStyle=0

[MOV]

Делаю так примерно:

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

Dim flag As Boolean

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    flag = True
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    flag = False
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If flag And Button = 1 Then
        Debug.Print X; Y; Me.Left; Me.Top
        Me.Move X, Y, Me.Width, Me.Height
    End If
End Sub

Во-первых, явно, что косяки идут с координатами и все криво
Во-втрых, может есть более рациональные варианты?
Где-то видел на примере по созданию окон произвольной формы, но вот не найду сейчас.

[Amed]

Всё гениальное - просто

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

'Как "таскать" за форму
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

[MOV]

Спасибо

[alibek]

При MouseMove учитывай, что когда ты сдвигаешь окно, то окно сдвигается относительно курсора и тут же генерируется новый MouseMove. Так что тебе надо: а) вычислить смещение, б) установить флаг, предотвращающий рекурсию MouseMove, в) сдвинуть окно, г) убрать флаг.