Modification

Protected Overrides Sub WndProc(ByRef m As Message)
        Select Case m.Msg
            Case &H85
                If IS_AERO_ENABLED() Then
                    DwmSetWindowAttribute(Me.Handle, 2, 2, 4)
                    DwmExtendFrameIntoClientArea(Me.Handle, New Margins(0, 0, 0, 1))
                End If
            Case Else
        End Select



        '   This enables the form to be moved in the screen
        If m.Msg = &HA3 Then
            Return
        End If

        Select Case m.Msg
            Case &H84
                MyBase.WndProc(m)
                If CInt(m.Result) = &H1 Then m.Result = CType(&H2, IntPtr)
                Return
        End Select

        MyBase.WndProc(m)
    End Sub