Movimentar Janela Do Form .net

[Beowulff]

Boa tarde, sou novo por aqui e espero que vocês possam me ajudar, estou querendo movimentar meu form, quando o usuário clica em qualquer parte dele, no VB6 era tranquilo, usava SendMessage e ReleaseCapture, só que estou utilizando o vb.net, alguém sabe como fazer ??

Obrigado

Beowulff

[Graymalkin]

Bom, consegui fazer isso aqui no evento MouseMove:

        Static atualX, atualY As Integer

        If e.Button = MouseButtons.Left Then
            If atualX = 0 Then atualX = e.X
            If atualY = 0 Then atualY = e.Y

            Dim posição As New System.Drawing.Point()
            posição.X = Cursor.Position.X - atualX
            posição.Y = Cursor.Position.Y - atualY
            Me.DesktopLocation = posição
        Else
            atualX = atualY = 0
        End If

Mas ainda não ficou perfeito, porém não consigo ver o que está errado ali. Faça alguns testes aí e veja se você consegue.

Abraços,

Graymalkin

[Beowulff]

Obrigado, acabei conseguindo com a API mesmo, só fazendo algumas poucas alterações na declaração, segue o exemplo:

    Declare Function ReleaseCapture Lib "user32" () As Integer
    Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

    Private Sub Logon_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        If e.Button = MouseButtons.Left Then
            ReleaseCapture()
            SendMessage(Me.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0)
        End If
    End Sub

Esse funcionou corretamente.

[Graymalkin]

É, eu pensei em recomendar a utilização das APIs mesmo, porém achei que não tivesse dado certo (por isso nem testei aqui também). De qualquer forma, obrigado por postar a solução (posso vir a precisar disso num futuro não muito distante...).

Abraços,

Graymalkin