Перемещение окна мышью за его заголовок с генерацией событий

Imports System.Runtime.InteropServices
 
Public Class Form3
 
    Const WM_NCLBUTTONDOWN As Integer = &HA1
    Const WM_NCLBUTTONUP As Integer = &HA2
    Const WM_LBUTTONUP As Integer = &H202
 
    Const HTCAPTION As Integer = 2
 
    Dim fMove As Boolean 'флаг активности действия перемещения окна
    'разница координат me.Location и курсора мыши в начале действия перемещения окна
    Dim intDeltaX As Integer 'X координата 
    Dim intDeltaY As Integer 'Y координата 
 
 
    ''' <summary>
    ''' Обрабатывает клики мыши по неклиентской области окна
    ''' </summary>
    Private Sub WmNcMouseDown(ByRef m As System.Windows.Forms.Message, ByVal cButton As MouseButtons, ByVal clicks As Integer)
        Select Case m.WParam.ToInt32
            Case HTCAPTION
                'нажали в области заголовка
                If cButton = Windows.Forms.MouseButtons.Left AndAlso clicks = 1 Then
                    fMove = True 'устанавливаем флаг перемещения окна
                    Me.Capture = True 'захватываем мышь
                    'разница координат курсора мыши и положения окна в начале его перемещения
                    intDeltaX = LOWORD(m.LParam) - Me.Location.X
                    intDeltaY = HIWORD(m.LParam) - Me.Location.Y
                End If
                WmMouseDown(m, cButton, clicks) 'Генерирует событие MouseDown при нажатии кнопки мыши в области окна
            Case Else
                DefWndProc(m)
        End Select
    End Sub
 
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Select Case m.Msg
            Case WM_NCLBUTTONDOWN
                'нажали левую кнопку мыши в неклиентской области окна
                WmNcMouseDown(m, Windows.Forms.MouseButtons.Left, 1)
            Case WM_NCLBUTTONUP
                'отпустили левую кнопку мыши в неклиентской области окна
                fMove = False ' снимаем флаг перемещения окна
                Me.Capture = False 'освобождаем мышь
            Case WM_LBUTTONUP
                'отпустили левую кнопку мыши в клиентской области окна
                fMove = False ' снимаем флаг перемещения окна
                Me.Capture = False 'освобождаем мышь
            Case Else
                MyBase.WndProc(m)
        End Select
    End Sub
 
 
    Dim i As Integer 'счётчик перемещений
 
    Private Sub Form3_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If fMove Then
            i += 1
            Console.WriteLine("Move event: " & i.ToString)
            Dim newPosX As Integer = e.X - intDeltaX
            Dim newPosY As Integer = e.Y - intDeltaY
            Me.Location = New Point(newPosX, newPosY)
        Else
            i = 0
        End If
    End Sub
End Class